ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_quadPack.F90
Go to the documentation of this file.
1!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3!!!! !!!!
4!!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5!!!! !!!!
6!!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7!!!! !!!!
8!!!! This file is part of the ParaMonte library. !!!!
9!!!! !!!!
10!!!! LICENSE !!!!
11!!!! !!!!
12!!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13!!!! !!!!
14!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16
138
139!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
140
142
143 use pm_kind, only: SK, IK, LK, RKH, RKB
144 use pm_mathConst, only: ninf, ninf_type
145 use pm_mathConst, only: pinf, pinf_type
146
147 implicit none
148
149 character(*, SK), parameter :: MODULE_NAME = "@pm_quadPack"
150
151!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
152
194 real(RKH) :: cs
195 end type
196
237 interface wcauchy_type
238
239 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
240
241#if RK5_ENABLED
242 PURE elemental module function constructWcauchy_RK5(cs) result(wcauchy)
243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
244 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK5
245#endif
246 use pm_kind, only: RKC => RK5
247 real(RKC) , intent(in) :: cs
248 type(wcauchy_type) :: wcauchy
249 end function
250#endif
251
252#if RK4_ENABLED
253 PURE elemental module function constructWcauchy_RK4(cs) result(wcauchy)
254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
255 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK4
256#endif
257 use pm_kind, only: RKC => RK4
258 real(RKC) , intent(in) :: cs
259 type(wcauchy_type) :: wcauchy
260 end function
261#endif
262
263#if RK3_ENABLED
264 PURE elemental module function constructWcauchy_RK3(cs) result(wcauchy)
265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
266 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK3
267#endif
268 use pm_kind, only: RKC => RK3
269 real(RKC) , intent(in) :: cs
270 type(wcauchy_type) :: wcauchy
271 end function
272#endif
273
274#if RK2_ENABLED
275 PURE elemental module function constructWcauchy_RK2(cs) result(wcauchy)
276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
277 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK2
278#endif
279 use pm_kind, only: RKC => RK2
280 real(RKC) , intent(in) :: cs
281 type(wcauchy_type) :: wcauchy
282 end function
283#endif
284
285#if RK1_ENABLED
286 PURE elemental module function constructWcauchy_RK1(cs) result(wcauchy)
287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
288 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK1
289#endif
290 use pm_kind, only: RKC => RK1
291 real(RKC) , intent(in) :: cs
292 type(wcauchy_type) :: wcauchy
293 end function
294#endif
295
296 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
297
298 end interface
299
300!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
301
345 type :: wsin_type
346 real(RKH) :: omega
347 end type
348
389 interface wsin_type
390
391 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
392
393#if RK5_ENABLED
394 PURE elemental module function constructWsin_RK5(omega) result(wsin)
395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
396 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK5
397#endif
398 use pm_kind, only: RKC => RK5
399 real(RKC) , intent(in) :: omega
400 type(wsin_type) :: wsin
401 end function
402#endif
403
404#if RK4_ENABLED
405 PURE elemental module function constructWsin_RK4(omega) result(wsin)
406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
407 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK4
408#endif
409 use pm_kind, only: RKC => RK4
410 real(RKC) , intent(in) :: omega
411 type(wsin_type) :: wsin
412 end function
413#endif
414
415#if RK3_ENABLED
416 PURE elemental module function constructWsin_RK3(omega) result(wsin)
417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
418 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK3
419#endif
420 use pm_kind, only: RKC => RK3
421 real(RKC) , intent(in) :: omega
422 type(wsin_type) :: wsin
423 end function
424#endif
425
426#if RK2_ENABLED
427 PURE elemental module function constructWsin_RK2(omega) result(wsin)
428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
429 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK2
430#endif
431 use pm_kind, only: RKC => RK2
432 real(RKC) , intent(in) :: omega
433 type(wsin_type) :: wsin
434 end function
435#endif
436
437#if RK1_ENABLED
438 PURE elemental module function constructWsin_RK1(omega) result(wsin)
439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
440 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK1
441#endif
442 use pm_kind, only: RKC => RK1
443 real(RKC) , intent(in) :: omega
444 type(wsin_type) :: wsin
445 end function
446#endif
447
448 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
449
450 end interface
451
452!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
453
497 type :: wcos_type
498 real(RKH) :: omega
499 end type
500
541 interface wcos_type
542
543 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
544
545#if RK5_ENABLED
546 PURE elemental module function constructWcos_RK5(omega) result(wcos)
547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
548 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK5
549#endif
550 use pm_kind, only: RKC => RK5
551 real(RKC) , intent(in) :: omega
552 type(wcos_type) :: wcos
553 end function
554#endif
555
556#if RK4_ENABLED
557 PURE elemental module function constructWcos_RK4(omega) result(wcos)
558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
559 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK4
560#endif
561 use pm_kind, only: RKC => RK4
562 real(RKC) , intent(in) :: omega
563 type(wcos_type) :: wcos
564 end function
565#endif
566
567#if RK3_ENABLED
568 PURE elemental module function constructWcos_RK3(omega) result(wcos)
569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
570 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK3
571#endif
572 use pm_kind, only: RKC => RK3
573 real(RKC) , intent(in) :: omega
574 type(wcos_type) :: wcos
575 end function
576#endif
577
578#if RK2_ENABLED
579 PURE elemental module function constructWcos_RK2(omega) result(wcos)
580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
581 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK2
582#endif
583 use pm_kind, only: RKC => RK2
584 real(RKC) , intent(in) :: omega
585 type(wcos_type) :: wcos
586 end function
587#endif
588
589#if RK1_ENABLED
590 PURE elemental module function constructWcos_RK1(omega) result(wcos)
591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
592 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK1
593#endif
594 use pm_kind, only: RKC => RK1
595 real(RKC) , intent(in) :: omega
596 type(wcos_type) :: wcos
597 end function
598#endif
599
600 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
601
602 end interface
603
604!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
605
606 ! \cond excluded
646 type :: GK15_type
647 end type
648 ! \endcond excluded
649
676 type(GK15_type) , parameter :: GK15 = GK15_type()
677
678 ! \cond excluded
698 real(RKB) , parameter :: nodeG7(4) = &
699 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
700 , 4.0584515137739716690660641207696146334738201409937012638704325179466381322612565532831268972774658776528675866604802e-01_RKB &
701 , 7.4153118559939443986386477328078840707414764714139026011995535196742987467218051379282683236686324705969251809311201e-01_RKB &
702 , 9.4910791234275852452618968404785126240077093767061778354876910391306333035484014080573077002792572414430073966699522e-01_RKB ]
703
723 real(RKB) , parameter :: weightG7(4) = &
724 [ 4.1795918367346938775510204081632653061224489795918367346938775510204081632653061224489795918367346938775510204081633e-01_RKB &
725 , 3.8183005050511894495036977548897513387836508353386273475108345103070554643412970834868465934404480145031467176458536e-01_RKB &
726 , 2.7970539148927666790146777142377958248692506522659876453701403269361881043056267681324094290119761876632337521337205e-01_RKB &
727 , 1.2948496616886969327061143267908201832858740225994666397720863872465523497204230871562541816292084508948440200163443e-01_RKB ]
728
748 real(RKB) , parameter :: nodeK15(8) = &
749 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
750 , 2.0778495500789846760068940377324491347978440714517064971384573461986693844943520226910343227183698530560857645062738e-01_RKB &
751 , 4.0584515137739716690660641207696146334738201409937012638704325179466381322612565532831268972774658776528675866604802e-01_RKB &
752 , 5.8608723546769113029414483825872959843678075060436095130499289319880373607444407464511674498935942098956811555121368e-01_RKB &
753 , 7.4153118559939443986386477328078840707414764714139026011995535196742987467218051379282683236686324705969251809311201e-01_RKB &
754 , 8.6486442335976907278971278864092620121097230707408814860145771276706770813259572103585847859604590541475281326027862e-01_RKB &
755 , 9.4910791234275852452618968404785126240077093767061778354876910391306333035484014080573077002792572414430073966699522e-01_RKB &
756 , 9.9145537112081263920685469752632851664204433837033470129108741357244173934653407235924503509626841760744349505339308e-01_RKB ]
757
777 real(RKB) , parameter :: weightK15(8) = &
778 [ 2.0948214108472782801299917489171426369776208022370431671299800656137515132325648616816908211675949102392971459688215e-01_RKB &
779 , 2.0443294007529889241416199923464908471651760418071835742447095312045467698546598879348374292009347554167803659293064e-01_RKB &
780 , 1.9035057806478540991325640242101368282607807545535835588544088036744058072410212679605964605106377593834568683551139e-01_RKB &
781 , 1.6900472663926790282658342659855028410624490030294424149734006755695680921619029112936702403855359908156070095656537e-01_RKB &
782 , 1.4065325971552591874518959051023792039988975724799857556174546893312708093090950408097379122415555910759700350860143e-01_RKB &
783 , 1.0479001032225018383987632254151801744375665421383061189339065133963746321576289524167571627509311333949422518201492e-01_RKB &
784 , 6.3092092629978553290700663189204286665071157211550707113605545146983997477964874928199170264504441995865872491871943e-02_RKB &
785 , 2.2935322010529224963732008058969591993560811275746992267507430254711815787976075946156368168156289483493617134063245e-02_RKB ]
786 ! \endcond excluded
787
788!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
789
790 ! \cond excluded
830 type :: GK21_type
831 end type
832 ! \endcond excluded
833
861 type(GK21_type) , parameter :: GK21 = GK21_type()
862
863 ! \cond excluded
883 real(RKB) , parameter :: nodeG10(5) = &
884 [ 1.4887433898163121088482600112971998461756485942069169570798925351590361735566852137117762979946369123003116080525534e-01_RKB &
885 , 4.3339539412924719079926594316578416220007183765624649650270151314376698907770350122510275795011772122368293504099894e-01_RKB &
886 , 6.7940956829902440623432736511487357576929471183480946766481718895255857539507492461507857357048037949983390204739932e-01_RKB &
887 , 8.6506336668898451073209668842349304852754301496533045252195973184537475513805556135679072894604577069440463108641177e-01_RKB &
888 , 9.7390652851717172007796401208445205342826994669238211923121206669659520323463615962572356495626855625823304251877421e-01_RKB ]
889
909 real(RKB) , parameter :: weightG10(5) = &
910 [ 2.9552422471475287017389299465133832942104671702685360135430802975599593821715232927035659579375421672271716440125256e-01_RKB &
911 , 2.6926671930999635509122692156946935285975993846088379580056327624215343231917927676422663670925276075559581145036870e-01_RKB &
912 , 2.1908636251598204399553493422816319245877187052267708988095654363519991065295128124268399317720219278659121687281289e-01_RKB &
913 , 1.4945134915058059314577633965769733240255663966942736783547726875323865472663001094594726463473195191400575256104544e-01_RKB &
914 , 6.6671344308688137593568809893331792857864834320158145128694881613412064084087101776785509685058877821090054714520419e-02_RKB ]
915
935 real(RKB) , parameter :: nodeK21(11) = &
936 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
937 , 1.4887433898163121088482600112971998461756485942069169570798925351590361735566852137117762979946369123003116080525534e-01_RKB &
938 , 2.9439286270146019813112660310386556616268662515695791864888229172724611166332737888445523178268237359119185139299872e-01_RKB &
939 , 4.3339539412924719079926594316578416220007183765624649650270151314376698907770350122510275795011772122368293504099894e-01_RKB &
940 , 5.6275713466860468333900009927269414084301388194196695886034621458779266353216327549712087854169992422106448211158815e-01_RKB &
941 , 6.7940956829902440623432736511487357576929471183480946766481718895255857539507492461507857357048037949983390204739932e-01_RKB &
942 , 7.8081772658641689706371757834504237716340752029815717974694859999505607982761420654526977234238996241110129779403362e-01_RKB &
943 , 8.6506336668898451073209668842349304852754301496533045252195973184537475513805556135679072894604577069440463108641177e-01_RKB &
944 , 9.3015749135570822600120718005950834622516790998193924230349406866828415983091673055011194572851007884702013619684320e-01_RKB &
945 , 9.7390652851717172007796401208445205342826994669238211923121206669659520323463615962572356495626855625823304251877421e-01_RKB &
946 , 9.9565716302580808073552728068900284792126058721947892436337916111757023046774867357152325996912076724298149077812671e-01_RKB ]
947
967 real(RKB) , parameter :: weightK21(11) = &
968 [ 1.4944555400291690566493646838982120374523631668747280383560851873698964478511841925721030705689540264726493367634340e-01_RKB &
969 , 1.4773910490133849137484151597206804552373162548520660451819195439885993016735696405732703959182882254268727823258502e-01_RKB &
970 , 1.4277593857706008079709427313871706088597905653190555560741004743970770449909340027811131706283756428281146832304737e-01_RKB &
971 , 1.3470921731147332592805400177170683276099191300855971406636668491320291400121282036676953159488271772384389604997640e-01_RKB &
972 , 1.2349197626206585107795810983107415951230034952864832764467994120974054238975454689681538622363738230836484113389878e-01_RKB &
973 , 1.0938715880229764189921059032580496027181329983434522007819675829826550372891432168683899432674553842507906611591517e-01_RKB &
974 , 9.3125454583697605535065465083366344390018828880760031970085038760177735672200775237414123061615827474831165614953012e-02_RKB &
975 , 7.5039674810919952767043140916190009395219382000910088173697048048430404342858495178813808730646554086856929327903059e-02_RKB &
976 , 5.4755896574351996031381300244580176373721114058333557524432615804784098927818975325116301569003298086458722055550981e-02_RKB &
977 , 3.2558162307964727478818972459389760617388939845662609571537504232714121820165498692381607605384626494546068817765276e-02_RKB &
978 , 1.1694638867371874278064396062192048396217332481931888927598147525622222058064992651806736704969967250888097490233242e-02_RKB ]
979
980!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
981
982 ! \cond excluded
1023 end type
1024 ! \endcond excluded
1025
1053 type(GK31_type) , parameter :: GK31 = GK31_type()
1054
1074 real(RKB) , parameter :: nodeG15(8) = &
1075 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1076 , 2.0119409399743452230062830339459620781283645446263767961594972460994823900302018760183625806752105908967902257386509e-01_RKB &
1077 , 3.9415134707756336989720737098104546836275277615869825503116534395160895778696141797549711416165976202589352169635648e-01_RKB &
1078 , 5.7097217260853884753722673725391064123838639628274960485326541705419537986975857948341462856982614477912646497026257e-01_RKB &
1079 , 7.2441773136017004741618605461393800963089929458410256355142342070412378167792521899610109760313432626923598549381925e-01_RKB &
1080 , 8.4820658341042721620064832077421685136625617473699263409572755876067507517414548519760771975082148085090373835713340e-01_RKB &
1081 , 9.3727339240070590430775894771020947124399627351530445790136307635020297379704552795054758617426808659746824044603157e-01_RKB &
1082 , 9.8799251802048542848956571858661258114697281712376148999999751558738843736901942471272205036831914497667516843990079e-01_RKB ]
1083
1103 real(RKB) , parameter :: weightG15(8) = &
1104 [ 2.0257824192556127288062019996751931483866215800947735679670411605143539875474607409339344071278803213535148267082999e-01_RKB &
1105 , 1.9843148532711157645611832644383932481869255995754199348473792792912479753343426813331499916481782320766020854889310e-01_RKB &
1106 , 1.8616100001556221102680056186642282450622601227792840281549572731001325550269916061894976888609932360539977709001384e-01_RKB &
1107 , 1.6626920581699393355320086048120881113090018009841290732186519056355356321227851771070517429241553621484461540657185e-01_RKB &
1108 , 1.3957067792615431444780479451102832252085027531551124320239112863108844454190781168076825736357133363814908889327664e-01_RKB &
1109 , 1.0715922046717193501186954668586930341554371575810198068702238912187799485231579972568585713760862404439808767837506e-01_RKB &
1110 , 7.0366047488108124709267416450667338466708032754330719825907292914387055512874237044840452066693939219355489858595041e-02_RKB &
1111 , 3.0753241996117268354628393577204417721748144833434074264228285504237189467117168039038770732399404002516991188859473e-02_RKB ]
1112
1132 real(RKB) , parameter :: nodeK31(16) = &
1133 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1134 , 1.0114206691871749902707423144739233878745105740164180495800189504151097862454083050931321451540380998341273193681967e-01_RKB &
1135 , 2.0119409399743452230062830339459620781283645446263767961594972460994823900302018760183625806752105908967902257386509e-01_RKB &
1136 , 2.9918000715316881216678002426638896266160338274382080184125545738918081102513884467602322020157243563662094470221235e-01_RKB &
1137 , 3.9415134707756336989720737098104546836275277615869825503116534395160895778696141797549711416165976202589352169635648e-01_RKB &
1138 , 4.8508186364023968069365574023235061286633893089407312129367943604080239955167155974371848690848595275551258416303565e-01_RKB &
1139 , 5.7097217260853884753722673725391064123838639628274960485326541705419537986975857948341462856982614477912646497026257e-01_RKB &
1140 , 6.5099674129741697053373589531327469254694822609259966708966160576093305841043840794460394747228060367236079289132544e-01_RKB &
1141 , 7.2441773136017004741618605461393800963089929458410256355142342070412378167792521899610109760313432626923598549381925e-01_RKB &
1142 , 7.9041850144246593296764929481794734686214051995697617332365280643308302974631807059994738664225445530963711137343440e-01_RKB &
1143 , 8.4820658341042721620064832077421685136625617473699263409572755876067507517414548519760771975082148085090373835713340e-01_RKB &
1144 , 8.9726453234408190088250965645449588283177871149442786763972687601078537721473771221195399661919716123038835639691946e-01_RKB &
1145 , 9.3727339240070590430775894771020947124399627351530445790136307635020297379704552795054758617426808659746824044603157e-01_RKB &
1146 , 9.6773907567913913425734797878433722528335733730013163797468062226335804249452174804319385048203118506304424717089291e-01_RKB &
1147 , 9.8799251802048542848956571858661258114697281712376148999999751558738843736901942471272205036831914497667516843990079e-01_RKB &
1148 , 9.9800229869339706028517284015227120907340644231555723034839427970683348682837134566648979907760125278631896777136104e-01_RKB ]
1149
1169 real(RKB) , parameter :: weightK31(16) = &
1170 [ 1.0133000701479154901737479276749254677092627259659629246734858372174107615774696665932418050683956749891773195816338e-01_RKB &
1171 , 1.0076984552387559504494666261756972191634838013536373069278929029488122760822761077475060185965408326901925180106227e-01_RKB &
1172 , 9.9173598721791959332393173484603131059567260816713281734860095693651563064308745717056680128223790739026832596087552e-02_RKB &
1173 , 9.6642726983623678505179907627589335136656568630495198973407668882934392359962841826511402504664592185391687490319950e-02_RKB &
1174 , 9.3126598170825321225486872747345718561927881321317330560285879189052002874531855060114908990458716740695847509343865e-02_RKB &
1175 , 8.8564443056211770647275443693774303212266732690655967817996052574877144544749814260718837576325109922207832119243346e-02_RKB &
1176 , 8.3080502823133021038289247286103789601554188253368717607281604875233630643885056057630789228337088859687986285569521e-02_RKB &
1177 , 7.6849680757720378894432777482659006722109101167947000584089097112470821092034084418224731527690291913686588446455555e-02_RKB &
1178 , 6.9854121318728258709520077099147475786045435140671549698798093177992675624987998849748628778570667518643649536771245e-02_RKB &
1179 , 6.2009567800670640285139230960802932190400004210329723569147829395618376206272317333030584268303808639229575334680414e-02_RKB &
1180 , 5.3481524690928087265343147239430296771554760947116739813222888752727413616259625439714812475198987513183153639571249e-02_RKB &
1181 , 4.4589751324764876608227299373279690223256649667921096570980823211805450700059906366455036418897149593261561551176267e-02_RKB &
1182 , 3.5346360791375846222037948478360048122630678992420820868148023340902501837247680978434662724296810081131106317333086e-02_RKB &
1183 , 2.5460847326715320186874001019653359397271745046864640508377984982400903447009185267605205778819712848080691366407461e-02_RKB &
1184 , 1.5007947329316122538374763075807268094639436437387634979291759700896494746154334398961710227490402528151677469993935e-02_RKB &
1185 , 5.3774798729233489877920514301276498183080402431284197876486169536848635554354599213793172596490038991436925569025913e-03_RKB ]
1186 ! \endcond excluded
1187
1188!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1189
1190 ! \cond excluded
1231 end type
1232 ! \endcond excluded
1233
1261 type(GK41_type) , parameter :: GK41 = GK41_type()
1262
1263 ! \cond excluded
1283 real(RKB) , parameter :: nodeG20(10) = &
1284 [ 7.6526521133497333754640409398838211004796266813497500804795244384256342048336978241545114181556215606998505646364133e-02_RKB &
1285 , 2.2778585114164507808049619536857462474308893768292747231463573920717134186355582779495212519096870803177373131560430e-01_RKB &
1286 , 3.7370608871541956067254817702492723739574632170568271182794861351564576437305952789589568363453337894476772208852815e-01_RKB &
1287 , 5.1086700195082709800436405095525099842549132920242683347234861989473497039076572814403168305086777919832943068843526e-01_RKB &
1288 , 6.3605368072651502545283669622628593674338911679936846393944662254654126258543013255870319549576130658211710937772596e-01_RKB &
1289 , 7.4633190646015079261430507035564159031073067956917644413954590606853535503815506468110411362064752061238490065167656e-01_RKB &
1290 , 8.3911697182221882339452906170152068532962936506563737325249272553286109399932480991922934056595764922060422035306914e-01_RKB &
1291 , 9.1223442825132590586775244120329811304918479742369177479588221915807089120871907893644472619292138737876039175464603e-01_RKB &
1292 , 9.6397192727791379126766613119727722191206032780618885606353759389204158078438305698001812525596471563131043491596423e-01_RKB &
1293 , 9.9312859918509492478612238847132027822264713090165589614818413121798471762775378083944940249657220927472894034724419e-01_RKB ]
1294
1314 real(RKB) , parameter :: weightG20(10) = &
1315 [ 1.5275338713072585069808433195509759349194864511237859727470104981759745316273778153557248783650390593544001842813788e-01_RKB &
1316 , 1.4917298647260374678782873700196943669267990408136831649621121780984442259558678069396132603521048105170913854567338e-01_RKB &
1317 , 1.4209610931838205132929832506716493303451541339202030333736708298382808749793436761694922428320058260133068573666201e-01_RKB &
1318 , 1.3168863844917662689849449974816313491611051114698352699643649370885435642948093314355797518397262924510598005463625e-01_RKB &
1319 , 1.1819453196151841731237737771138228700504121954896877544688995202017474835051151630572868782581901744606267543092317e-01_RKB &
1320 , 1.0193011981724043503675013548034987616669165602339255626197161619685232202539434647534931576947985821375859035525483e-01_RKB &
1321 , 8.3276741576704748724758143222046206100177828583163290744882060785693082894079419471375190843790839349096116111932764e-02_RKB &
1322 , 6.2672048334109063569506535187041606351601076578436364099584345437974811033665678644563766056832203512603253399592073e-02_RKB &
1323 , 4.0601429800386941331039952274932109879090639989951536817606854561832296750987328295538920623044384976189825709675075e-02_RKB &
1324 , 1.7614007139152118311861962351852816362143105543336732524349326677348419259621847817403105542146097668703716227512570e-02_RKB ]
1325
1345 real(RKB) , parameter :: nodeK41(21) = &
1346 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1347 , 7.6526521133497333754640409398838211004796266813497500804795244384256342048336978241545114181556215606998505646364133e-02_RKB &
1348 , 1.5260546524092267550522024102267752791167622481841730660174156703809133685751696356987995886397049724808931527012542e-01_RKB &
1349 , 2.2778585114164507808049619536857462474308893768292747231463573920717134186355582779495212519096870803177373131560430e-01_RKB &
1350 , 3.0162786811491300432055535685859226061539650501373092456926374427956957435978384116066498234762220215751079886015902e-01_RKB &
1351 , 3.7370608871541956067254817702492723739574632170568271182794861351564576437305952789589568363453337894476772208852815e-01_RKB &
1352 , 4.4359317523872510319999221349264010784010101082300309613315028346299543059315258601993479156987847429893626854030516e-01_RKB &
1353 , 5.1086700195082709800436405095525099842549132920242683347234861989473497039076572814403168305086777919832943068843526e-01_RKB &
1354 , 5.7514044681971031534294603658642513281381264014771682537415885495717468074720062012357788489049470208285175093670561e-01_RKB &
1355 , 6.3605368072651502545283669622628593674338911679936846393944662254654126258543013255870319549576130658211710937772596e-01_RKB &
1356 , 6.9323765633475138480549071184593153338642585141021417904687378454301191710739219011546672416325022748282227809465165e-01_RKB &
1357 , 7.4633190646015079261430507035564159031073067956917644413954590606853535503815506468110411362064752061238490065167656e-01_RKB &
1358 , 7.9504142883755119835063883327278794295938959911578029703855163894322697871710382866701777890251824617748545658564370e-01_RKB &
1359 , 8.3911697182221882339452906170152068532962936506563737325249272553286109399932480991922934056595764922060422035306914e-01_RKB &
1360 , 8.7827681125228197607744299511307846671124526828251164853898086998248145904743220740840261624245683876748360309079747e-01_RKB &
1361 , 9.1223442825132590586775244120329811304918479742369177479588221915807089120871907893644472619292138737876039175464603e-01_RKB &
1362 , 9.4082263383175475351998272221244338027429557377965291059536839973186796006557571220888218676776618448841584569497535e-01_RKB &
1363 , 9.6397192727791379126766613119727722191206032780618885606353759389204158078438305698001812525596471563131043491596423e-01_RKB &
1364 , 9.8150787745025025919334299472021694456725093981023759869077533318793098857465723460898060491887511355706497739384103e-01_RKB &
1365 , 9.9312859918509492478612238847132027822264713090165589614818413121798471762775378083944940249657220927472894034724419e-01_RKB &
1366 , 9.9885903158827766383831557654586300999957020432629666866666860339324411793311982967839129772854179884971700274369367e-01_RKB ]
1367
1387 real(RKB) , parameter :: weightK41(21) = &
1388 [ 7.6600711917999656445049901530101740827932500628670118055485349620314721456712029449597396569857880493210849110825276e-02_RKB &
1389 , 7.6377867672080736705502835038061001800801036764945996714946431116936745542061941050008345047482501253320401746334511e-02_RKB &
1390 , 7.5704497684556674659542775376616558263363155900414326194855223272348838596099414841886740468379707283366777797425290e-02_RKB &
1391 , 7.4582875400499188986581418362487528616116493572092273080047040726969899567887364227664202642942357104526915332274625e-02_RKB &
1392 , 7.3030690332786667495189417658913112760626845234552742380174250771849743831660040966804802312464527721645765620253776e-02_RKB &
1393 , 7.1054423553444068305790361723210167412912159322210143921628270586407381879789525901086146473278095159807542174985045e-02_RKB &
1394 , 6.8648672928521619345623411885367801715489704958239860400434264173923806029589970941711224257967651039544669425313433e-02_RKB &
1395 , 6.5834597133618422111563556969397943147223506343381443709751749639944420314384296347503523810096842402960802728781816e-02_RKB &
1396 , 6.2653237554781168025870122174254980585819744698897886186553324157100424088919284503451596742588386343548162830898103e-02_RKB &
1397 , 5.9111400880639572374967220648594217136419365977042191748388047204015262840407696611508732839851952697839735487615776e-02_RKB &
1398 , 5.5195105348285994744832372419777329194753456228153116909812131213177827707884692917845453999535518818940813085110223e-02_RKB &
1399 , 5.0944573923728691932707670050344948664836365809262579747517140086119113476866735641054822574173198900379392130050979e-02_RKB &
1400 , 4.6434821867497674720231880926107516842127071007077929289994127933243222585938804392953931185146446072587020288747981e-02_RKB &
1401 , 4.1668873327973686263788305936894738043960843153010324860966353235271889596379726462208702081068715463576895020003842e-02_RKB &
1402 , 3.6600169758200798030557240707211008487453496747498001651070009441973280061489266074044986901436324295513243878212345e-02_RKB &
1403 , 3.1287306777032798958543119323800737887769280362813337359554598005322423266047996771926031069705049476071896145456496e-02_RKB &
1404 , 2.5882133604951158834505067096153142999479118048674944526997797755374306421629440393392427198869345793286369198147609e-02_RKB &
1405 , 2.0388373461266523598010231432754705122838627940185929365371868214433006532030353671253640300679157504987977281782909e-02_RKB &
1406 , 1.4626169256971252983787960308868356163881050162249770342103474631076960029748751959380482484308382288261238476948520e-02_RKB &
1407 , 8.6002698556429421986617879501023472521289227667077976622450602031426535362696437838448828009554532025301579670206091e-03_RKB &
1408 , 3.0735837185205315012182932460309874880335046882543449198461628212114333665590378156706265241414469306987988292234740e-03_RKB ]
1409 ! \endcond excluded
1410
1411!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1412
1413 ! \cond excluded
1454 end type
1455 ! \endcond excluded
1456
1484 type(GK51_type) , parameter :: GK51 = GK51_type()
1485
1486 ! \cond excluded
1506 real(RKB) , parameter :: nodeG25(13) = &
1507 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1508 , 1.2286469261071039638735981880803680553220534604978373842389353789270883496885841582643884994633105537597765980412320e-01_RKB &
1509 , 2.4386688372098843204519036279745158640563315632598447642113565325038747278585595067977636776325034060327548499765742e-01_RKB &
1510 , 3.6117230580938783773582173012764066742207834704337506979457877784674538239569654860329531506093761400789294612122812e-01_RKB &
1511 , 4.7300273144571496052218211500919204133181773846162729090723082769560327584128603010315684778279363544192787010704498e-01_RKB &
1512 , 5.7766293024122296772368984161265406739573503929151825664548350776102301275263202227671659646579649084013116066120581e-01_RKB &
1513 , 6.7356636847346836448512063324762217588341672807274931705965696177828773684928421158196368568030932194044282149314388e-01_RKB &
1514 , 7.5925926303735763057728286520436097638752201889833412091838973544501862882026240760763679724185230331463919586229073e-01_RKB &
1515 , 8.3344262876083400142102110869356956946096411382352078602086471546171813247709012525322973947759168107133491065937347e-01_RKB &
1516 , 8.9499199787827536885104200678280495417455484975358390306170168295917151090119945137118600693039178162093726882638296e-01_RKB &
1517 , 9.4297457122897433941401116965847053190520157060899014192745249713729532254404926130890521815127348327109666786665572e-01_RKB &
1518 , 9.7666392145951751149831538647959406774537055531440674467098742731616386753588055389644670948300617866819865983054648e-01_RKB &
1519 , 9.9555696979049809790878494689390161725756264940480817121080493113293348134372793448728802635294700756868258870429256e-01_RKB ]
1520
1540 real(RKB) , parameter :: weightG25(13) = &
1541 [ 1.2317605372671545120390287307905014243823362751815166539135219731691200794926142128460112517504958377310054583945994e-01_RKB &
1542 , 1.2224244299031004168895951894585150583505924756305904090758008223203896721918010243033540891078906637115620156845304e-01_RKB &
1543 , 1.1945576353578477222817812651290104739017670141372642551958788133518409022018773502442869720975271321374348568426235e-01_RKB &
1544 , 1.1485825914571164833932554586955580864093619166818014959151499003148279667112542256534429898558156273250513652351744e-01_RKB &
1545 , 1.0851962447426365311609395705011661934007758798672201615649430734883929279360844269339768350029654172135832773427565e-01_RKB &
1546 , 1.0053594906705064420220689039268582698846609452814190706986904199941294815904602968195565620373258211755226681206658e-01_RKB &
1547 , 9.1028261982963649811497220702891653380992558959334310970483768967017384678410526902484398142953718885872521590850372e-02_RKB &
1548 , 8.0140700335001018013234959669111302290225732853675893716201462973612828934801289559457377714225318048243957479325813e-02_RKB &
1549 , 6.8038333812356917207187185656707968554709494354636562615071226410003654051711473106651522969481873733098761760660898e-02_RKB &
1550 , 5.4904695975835191925936891540473324160109985553111349048508498244593774678436511895711924079433444763756746828817613e-02_RKB &
1551 , 4.0939156701306312655623487711645953660845783364104346504698414899297432880215512770478971055110424130123527015425511e-02_RKB &
1552 , 2.6354986615032137261901815295299144935963281703322468755366165783870934008879499371529821528172928890350362464605104e-02_RKB &
1553 , 1.1393798501026287947902964113234773603320526292909696448948061116189891729766743355923677112945033505688431618009664e-02_RKB ]
1554
1574 real(RKB) , parameter :: nodeK51(26) = &
1575 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1576 , 6.1544483005685078886546392366796631281724348039823545274305431751687279361558658545141048781022691067898008423227288e-02_RKB &
1577 , 1.2286469261071039638735981880803680553220534604978373842389353789270883496885841582643884994633105537597765980412320e-01_RKB &
1578 , 1.8371893942104889201596988875952841578528447834990555215034512653236752851109815617651867160645591242103823539931527e-01_RKB &
1579 , 2.4386688372098843204519036279745158640563315632598447642113565325038747278585595067977636776325034060327548499765742e-01_RKB &
1580 , 3.0308953893110783016747890998033932920041937876655194685731578452573120372337209717349617882111662416355753711853559e-01_RKB &
1581 , 3.6117230580938783773582173012764066742207834704337506979457877784674538239569654860329531506093761400789294612122812e-01_RKB &
1582 , 4.1788538219303774885181439459457248709336998140069528034955785068796932076966599548717224205109797297615032607570119e-01_RKB &
1583 , 4.7300273144571496052218211500919204133181773846162729090723082769560327584128603010315684778279363544192787010704498e-01_RKB &
1584 , 5.2632528433471918259962377815801017803683252320191114313002425180471455022502695302371008520604638341970901082293650e-01_RKB &
1585 , 5.7766293024122296772368984161265406739573503929151825664548350776102301275263202227671659646579649084013116066120581e-01_RKB &
1586 , 6.2681009901031741278812268162451788101954628995068510806525222008437260184181183053045236423845198752346149030569920e-01_RKB &
1587 , 6.7356636847346836448512063324762217588341672807274931705965696177828773684928421158196368568030932194044282149314388e-01_RKB &
1588 , 7.1776640681308438818665407977329778059771167555515582423493486823991612820974965089522905953765860328116692570706602e-01_RKB &
1589 , 7.5925926303735763057728286520436097638752201889833412091838973544501862882026240760763679724185230331463919586229073e-01_RKB &
1590 , 7.9787379799850005941041090499430656940863230009338267661706934499488650817643824077118950314443984031474353711531825e-01_RKB &
1591 , 8.3344262876083400142102110869356956946096411382352078602086471546171813247709012525322973947759168107133491065937347e-01_RKB &
1592 , 8.6584706529327559544899696958834008820284409402823690293965213246691432948180280120756708738064779055576005302835351e-01_RKB &
1593 , 8.9499199787827536885104200678280495417455484975358390306170168295917151090119945137118600693039178162093726882638296e-01_RKB &
1594 , 9.2074711528170156174634608454633063157457035996277199700642836501131385042631212407808952281702820179915510491592339e-01_RKB &
1595 , 9.4297457122897433941401116965847053190520157060899014192745249713729532254404926130890521815127348327109666786665572e-01_RKB &
1596 , 9.6161498642584251241813003366016724169212642963709676666624520141292893281185666917636407790823210892689040877316178e-01_RKB &
1597 , 9.7666392145951751149831538647959406774537055531440674467098742731616386753588055389644670948300617866819865983054648e-01_RKB &
1598 , 9.8803579453407724763733101457740622707248415209160748131449972199405186821347293686245404742032360498210710718706868e-01_RKB &
1599 , 9.9555696979049809790878494689390161725756264940480817121080493113293348134372793448728802635294700756868258870429256e-01_RKB &
1600 , 9.9926210499260983419345748654034059370452496042279618586228697762904524428167719073818746102238075978747461480736921e-01_RKB ]
1601
1621 real(RKB) , parameter :: weightK51(26) = &
1622 [ 6.1580818067832935078759824240064553190436936903140808056908996403358367244202623293256774502185186717703954810463664e-02_RKB &
1623 , 6.1471189871425316661544131965264177586537962876885022711111683500151700796198726558483367566537422877227096643444043e-02_RKB &
1624 , 6.1128509717053048305859030416292711922678552321960938357322028070390133769952032831204895569347757809858568165047769e-02_RKB &
1625 , 6.0539455376045862945360267517565427162312365710457079923487043144554747810689514408013582515489930908693681447570811e-02_RKB &
1626 , 5.9720340324174059979099291932561853835363045476189975483372207816149988460708299020779612375010639778624011960832019e-02_RKB &
1627 , 5.8689680022394207961974175856787764139795646254828315293243700305012569486054157617049685031506591863121580010947248e-02_RKB &
1628 , 5.7437116361567832853582693939506471994832856823896682976509412313367495727224381199978598247737089593472710899482737e-02_RKB &
1629 , 5.5950811220412317308240686382747346820271035112771802428932791066115158268338607019365831655460314732208940609352540e-02_RKB &
1630 , 5.4251129888545490144543370459875606826076838441263383072163293312936923476650934130242315028422047795830492882862973e-02_RKB &
1631 , 5.2362885806407475864366712137872714887351550723707596350905793656046659248541276597504566497990926306481919129870507e-02_RKB &
1632 , 5.0277679080715671963325259433440084440587630604775975142050968279743014641141402310302584542633557037153607386127936e-02_RKB &
1633 , 4.7982537138836713906392255756914754983592207423271169651235865196757913880334117810235517477328110033499422471098658e-02_RKB &
1634 , 4.5502913049921788909870584752660393043707768935695327316724254392794299567957035458208970599641697203261236226745020e-02_RKB &
1635 , 4.2872845020170049476895792439495161101999504199883328877919242515738957655253932048951366960802592343905647433925806e-02_RKB &
1636 , 4.0083825504032382074839284467075646401410549266591308713115878386835777315058451955614116158949614066927183232852042e-02_RKB &
1637 , 3.7116271483415543560330625367619875995997802688047764805628702762773009669395760582294525748583875707140577080663373e-02_RKB &
1638 , 3.4002130274329337836748795229551203225670528250050443083264193121524339063344855010257660547708022429300203676502386e-02_RKB &
1639 , 3.0792300167387488891109020215228585600877162393292487644544830559965388047996492709248618249084851477787538356572832e-02_RKB &
1640 , 2.7475317587851737802948455517811078614796013288710603199613621069727810352835469926107822047433566792405123805901196e-02_RKB &
1641 , 2.4009945606953216220092489164881081392931528209659330290734972342536012282191913069778658241972047765300060007037359e-02_RKB &
1642 , 2.0435371145882835456568292235938973678758006097668937220074531550163622566841885855957623103354443247806459277197725e-02_RKB &
1643 , 1.6847817709128298231516667536336315840402654624706139411175769276842182270078960078544597372646532637619276509222462e-02_RKB &
1644 , 1.3236229195571674813656405846976238077578084997863654732213860488560614587634395544002156258192582265590155862296710e-02_RKB &
1645 , 9.4739733861741516072077105236553238716453268483726334971394029603529306140359023187904705754719643032594360138998941e-03_RKB &
1646 , 5.5619321353567137580402369010655220701769295496290984052961210793810038857581724171021610100708799763006942755331129e-03_RKB &
1647 , 1.9873838923303159265078518828434098894299804282505973837653346298985629336820118753523093675303476883723992297810124e-03_RKB ]
1648 ! \endcond excluded
1649
1650!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1651
1652 ! \cond excluded
1693 end type
1694 ! \endcond excluded
1695
1723 type(GK61_type) , parameter :: GK61 = GK61_type()
1724
1725 ! \cond excluded
1745 real(RKB) , parameter :: nodeG30(15) = &
1746 [ 5.1471842555317695833025213166722573749141453666569564255160843987964755210427109055870090707285485841217089963590678e-02_RKB &
1747 , 1.5386991360858354696379467274325592041855197124433846171896298291578714851081610139692310651074078557990111754952062e-01_RKB &
1748 , 2.5463692616788984643980512981780510788278930330251842616428597508896353156907880290636628138423620257595521678255758e-01_RKB &
1749 , 3.5270472553087811347103720708937386065363100802142562659418446890026941623319107866436039675211352945165817827083104e-01_RKB &
1750 , 4.4703376953808917678060990032285400016240759386142440975447738172761535172858420700400688872124189834257262048739699e-01_RKB &
1751 , 5.3662414814201989926416979331107279416417800693029710545274348291201490861897837863114116009718990258091585830703557e-01_RKB &
1752 , 6.2052618298924286114047755643118929920736469282952813259505117012433531497488911774115258445532782106478789996137481e-01_RKB &
1753 , 6.9785049479331579693229238802664006838235380065395465637972284673997672124315996069538163644008904690545069439941341e-01_RKB &
1754 , 7.6777743210482619491797734097450313169488361723290845320649438736515857017299504505260960258623968420224697596501719e-01_RKB &
1755 , 8.2956576238276839744289811973250191643906869617034167880695298345365650658958163508295244350814016004371545455777732e-01_RKB &
1756 , 8.8256053579205268154311646253022559005668914714648423206832605312161626269519165572921583828573210485349058106849548e-01_RKB &
1757 , 9.2620004742927432587932427708047400408647453682532906091103713367942299565110232681677288015055886244486106298320068e-01_RKB &
1758 , 9.6002186496830751221687102558179766293035921740392339948566167242493995770706842922718944370380002378239172677454384e-01_RKB &
1759 , 9.8366812327974720997003258160566280194031785470971136351718001015114429536479104370207597166035471368057762560137209e-01_RKB &
1760 , 9.9689348407464954027163005091869528334088203811775079010809429780238769521016374081588201955806171741257405095963817e-01_RKB ]
1761
1781 real(RKB) , parameter :: weightG30(15) = &
1782 [ 1.0285265289355884034128563670541504386837555706492822258631898667601623865660942939262884632188870916503815852709086e-01_RKB &
1783 , 1.0176238974840550459642895216855404463270628948712684086426094541964251360531767494547599781978391198881693385887696e-01_RKB &
1784 , 9.9593420586795267062780282103569476529869263666704277221365146183946660389908809018092299289324184705373523229592037e-02_RKB &
1785 , 9.6368737174644259639468626351809865096406461430160245912994275732837534742003123724951247818104195363343093583583429e-02_RKB &
1786 , 9.2122522237786128717632707087618767196913234418234107527675047001973047070094168298464052916811907158954949394100501e-02_RKB &
1787 , 8.6899787201082979802387530715125702576753328743545344012222129882153582254261494247955033509639105330215477601953921e-02_RKB &
1788 , 8.0755895229420215354694938460529730875892803708439299890258593706051180567026345604212402769217808080749416147400962e-02_RKB &
1789 , 7.3755974737705206268243850022190734153770526037049438941269182374599399314635211710401352716638183270192254236882630e-02_RKB &
1790 , 6.5974229882180495128128515115962361237442953656660378967031516042143672466094179365819913911598737439478205808271237e-02_RKB &
1791 , 5.7493156217619066481721689402056128797120670721763134548715799003232147409954376925211999650950125355559974348279846e-02_RKB &
1792 , 4.8402672830594052902938140422807517815271809197372736345191936791805425677102152797767439563562263454374645955072007e-02_RKB &
1793 , 3.8799192569627049596801936446347692033200976766395352107732789705946970952769793919055026279035105656340228558382274e-02_RKB &
1794 , 2.8784707883323369349719179611292043639588894546287496474180122608145988940013933101730206711484171554940392262251283e-02_RKB &
1795 , 1.8466468311090959142302131912047269096206533968181403371298365514585599521307973654080519029675417955638095832046164e-02_RKB &
1796 , 7.9681924961666056154658834746736224504806965871517212294851633569200384329013332941536616922861735209846506562158817e-03_RKB ]
1797
1798
1818 real(RKB) , parameter :: nodeK61(31) = &
1819 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1820 , 5.1471842555317695833025213166722573749141453666569564255160843987964755210427109055870090707285485841217089963590678e-02_RKB &
1821 , 1.0280693796673703014709675131800059247190133296515840552101946914632788253917872738234797140786490207720254922664913e-01_RKB &
1822 , 1.5386991360858354696379467274325592041855197124433846171896298291578714851081610139692310651074078557990111754952062e-01_RKB &
1823 , 2.0452511668230989143895767100202470952410426459556377447604465028350321894663245495592565235317147819577892124850607e-01_RKB &
1824 , 2.5463692616788984643980512981780510788278930330251842616428597508896353156907880290636628138423620257595521678255758e-01_RKB &
1825 , 3.0407320227362507737267710719925655353115778980946272844421536998312150442387767304001423699909778588529370119457430e-01_RKB &
1826 , 3.5270472553087811347103720708937386065363100802142562659418446890026941623319107866436039675211352945165817827083104e-01_RKB &
1827 , 4.0040125483039439253547621154266063361104593297078395983186610656429170689311759061175527015710247383961903284673474e-01_RKB &
1828 , 4.4703376953808917678060990032285400016240759386142440975447738172761535172858420700400688872124189834257262048739699e-01_RKB &
1829 , 4.9248046786177857499369306120770879564426564096318697026073340982988422546396352776837047452262025983265531109327026e-01_RKB &
1830 , 5.3662414814201989926416979331107279416417800693029710545274348291201490861897837863114116009718990258091585830703557e-01_RKB &
1831 , 5.7934523582636169175602493217254049590705158881215289208126016612312833567812241903809970751783808208940322061083509e-01_RKB &
1832 , 6.2052618298924286114047755643118929920736469282952813259505117012433531497488911774115258445532782106478789996137481e-01_RKB &
1833 , 6.6006106412662696137005366814927075303835037480883390955067197339904937499734522076788020517029688190998858739703079e-01_RKB &
1834 , 6.9785049479331579693229238802664006838235380065395465637972284673997672124315996069538163644008904690545069439941341e-01_RKB &
1835 , 7.3379006245322680472617113136952764566938172775468549208701399518300016463613325382024664531597318795933262446521430e-01_RKB &
1836 , 7.6777743210482619491797734097450313169488361723290845320649438736515857017299504505260960258623968420224697596501719e-01_RKB &
1837 , 7.9972783582183908301366894232268324073569842937778450923647349548686662567326007229195202524185356472023967927713548e-01_RKB &
1838 , 8.2956576238276839744289811973250191643906869617034167880695298345365650658958163508295244350814016004371545455777732e-01_RKB &
1839 , 8.5720523354606109895865851065894385682080017062359612850504551739119887225712932688031120704657195642614071367390794e-01_RKB &
1840 , 8.8256053579205268154311646253022559005668914714648423206832605312161626269519165572921583828573210485349058106849548e-01_RKB &
1841 , 9.0557330769990779854652255892595831956897536366222841356404766397803760239449631913585074426842574155323901785046522e-01_RKB &
1842 , 9.2620004742927432587932427708047400408647453682532906091103713367942299565110232681677288015055886244486106298320068e-01_RKB &
1843 , 9.4437444474855997941583132403743912158564371496498093181748940139520917000657342753448871376849848523800667868447591e-01_RKB &
1844 , 9.6002186496830751221687102558179766293035921740392339948566167242493995770706842922718944370380002378239172677454384e-01_RKB &
1845 , 9.7311632250112626837469386842370688488763796428343933853755850185624118958166838288308561708261486365954975485787212e-01_RKB &
1846 , 9.8366812327974720997003258160566280194031785470971136351718001015114429536479104370207597166035471368057762560137209e-01_RKB &
1847 , 9.9163099687040459485862836610948572485050033374616325510019923349807489603260796605556191495843575227494654783755353e-01_RKB &
1848 , 9.9689348407464954027163005091869528334088203811775079010809429780238769521016374081588201955806171741257405095963817e-01_RKB &
1849 , 9.9948441005049063757132589570581081946887394701850801923632642830748016674843587830656468823145435723317885056396548e-01_RKB ]
1850
1870 real(RKB) , parameter :: weightK61(31) = &
1871 [ 5.1494729429451567558340433647099307532736880396464168074637323362474083844397567724480716864880173808112573901197920e-02_RKB &
1872 , 5.1426128537459025933862879215781259829552034862395987263855824172761589259406892072066110681184224608133314131500422e-02_RKB &
1873 , 5.1221547849258772170656282604944208251146952425246327553509056805511015401279553971190412722969308620984161625812560e-02_RKB &
1874 , 5.0881795898749606492297473049804691853384914260919239920771942080972542646780575571132056254070929858650733836163479e-02_RKB &
1875 , 5.0405921402782346840893085653585028902197018251622233664243959211066713308635283713447747907973700791599900911248852e-02_RKB &
1876 , 4.9795683427074206357811569379942328539209602813696108951047392842948482646220377655098341924089250200477846596263918e-02_RKB &
1877 , 4.9055434555029778887528165367238173605887405295296569579490717901328215644590555247522873065246297467067324397612445e-02_RKB &
1878 , 4.8185861757087129140779492298304592605799236108429800057373350872433793583969368428942672063270298939865425225579922e-02_RKB &
1879 , 4.7185546569299153945261478181099486482884807300628457194141861551725533289490897029020276525603515502104799540544222e-02_RKB &
1880 , 4.6059238271006988116271735559373580594692875571824924004732379492293604006446052672252973438978639166425766841417488e-02_RKB &
1881 , 4.4814800133162663192355551616723243757431392796373009889680201194063503947907899189061064792111919040540351834527742e-02_RKB &
1882 , 4.3452539701356069316831728117073258074603308631703168064888805495738640839573863333942084117196541456054957383622173e-02_RKB &
1883 , 4.1969810215164246147147541285969757790088656718992374820388720323852655511200365790379948462006156953358103259681948e-02_RKB &
1884 , 4.0374538951535959111995279752468114216126062126030255633998289613810846761059740961836828802959573901107306640876603e-02_RKB &
1885 , 3.8678945624727592950348651532281050250923629821553846790376130679337402056620700554139109487533759557982632153728099e-02_RKB &
1886 , 3.6882364651821229223911065617135967736955164781030337670005198584196134970154169862584193360751243227989492571664973e-02_RKB &
1887 , 3.4979338028060024137499670731467875097226912794818719972208457232177786702008744219498470603846784465175225933802357e-02_RKB &
1888 , 3.2981447057483726031814191016853927510599291213858385714519347641452316582381008804994515341969205985818543200837577e-02_RKB &
1889 , 3.0907257562387762472884252943092272635270458523807153426840486964022086189874056947717446328187131273807982629114591e-02_RKB &
1890 , 2.8754048765041292843978785354334211144679160542074930035102280759132174815469834227854660515366003136772757344886331e-02_RKB &
1891 , 2.6509954882333101610601709335075414366517579522748565770867438338472138903658077617652522759934474895733739329287706e-02_RKB &
1892 , 2.4191162078080601365686370725232026760391377828182462432228943562944885267501070688006470962871743661192935455117297e-02_RKB &
1893 , 2.1828035821609192297167485738338993401507296056834912773630422358720439403382559079356058602393879803560534375378340e-02_RKB &
1894 , 1.9414141193942381173408951050128455851421014191431525770276066536497179079025540486072726114628763606440143557769099e-02_RKB &
1895 , 1.6920889189053272627572289420322092368566703783835191139883410840546679978551861043620089451681146020853650713611444e-02_RKB &
1896 , 1.4369729507045804812451432443580010195841899895001505873565899403000198662495821906144274682894222591414503342336172e-02_RKB &
1897 , 1.1823015253496341742232898853250592896264406250607818326302431548265365155855182739401700032519141448997853772603766e-02_RKB &
1898 , 9.2732796595177634284411468920243604212700249381931076964956469143626665557434385492325784596343112153704094886248672e-03_RKB &
1899 , 6.6307039159312921733198263697501681336283882177812585973955597357837568277731921327731815844512598157843672104469554e-03_RKB &
1900 , 3.8904611270998840512672018445155032785151429848864649214200101281144733676455451061226273655941038347210163533085954e-03_RKB &
1901 , 1.3890136986770076245515912267596996810488412919632724534411055332301367130989865366956251556423820479579333920310978e-03_RKB ]
1902 ! \endcond excluded
1903
1904!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1905
1970
1971 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1972
1973#if RK5_ENABLED
1974 PURE module subroutine setNodeWeightGKFixed_RK5(nodeK, weightK, weightG)
1975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1976 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK5
1977#endif
1978 use pm_kind, only: RKC => RK5
1979 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
1980 end subroutine
1981#endif
1982
1983#if RK4_ENABLED
1984 PURE module subroutine setNodeWeightGKFixed_RK4(nodeK, weightK, weightG)
1985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1986 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK4
1987#endif
1988 use pm_kind, only: RKC => RK4
1989 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
1990 end subroutine
1991#endif
1992
1993#if RK3_ENABLED
1994 PURE module subroutine setNodeWeightGKFixed_RK3(nodeK, weightK, weightG)
1995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1996 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK3
1997#endif
1998 use pm_kind, only: RKC => RK3
1999 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2000 end subroutine
2001#endif
2002
2003#if RK2_ENABLED
2004 PURE module subroutine setNodeWeightGKFixed_RK2(nodeK, weightK, weightG)
2005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2006 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK2
2007#endif
2008 use pm_kind, only: RKC => RK2
2009 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2010 end subroutine
2011#endif
2012
2013#if RK1_ENABLED
2014 PURE module subroutine setNodeWeightGKFixed_RK1(nodeK, weightK, weightG)
2015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2016 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK1
2017#endif
2018 use pm_kind, only: RKC => RK1
2019 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2020 end subroutine
2021#endif
2022
2023 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2024
2025#if RK5_ENABLED
2026 PURE module subroutine setNodeWeightGKAlloc_RK5(order, nodeK, weightK, weightG)
2027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2028 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK5
2029#endif
2030 use pm_kind, only: RKC => RK5
2031 integer(IK) , intent(in) :: order
2032 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2033 end subroutine
2034#endif
2035
2036#if RK4_ENABLED
2037 PURE module subroutine setNodeWeightGKAlloc_RK4(order, nodeK, weightK, weightG)
2038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2039 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK4
2040#endif
2041 use pm_kind, only: RKC => RK4
2042 integer(IK) , intent(in) :: order
2043 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2044 end subroutine
2045#endif
2046
2047#if RK3_ENABLED
2048 PURE module subroutine setNodeWeightGKAlloc_RK3(order, nodeK, weightK, weightG)
2049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2050 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK3
2051#endif
2052 use pm_kind, only: RKC => RK3
2053 integer(IK) , intent(in) :: order
2054 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2055 end subroutine
2056#endif
2057
2058#if RK2_ENABLED
2059 PURE module subroutine setNodeWeightGKAlloc_RK2(order, nodeK, weightK, weightG)
2060#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2061 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK2
2062#endif
2063 use pm_kind, only: RKC => RK2
2064 integer(IK) , intent(in) :: order
2065 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2066 end subroutine
2067#endif
2068
2069#if RK1_ENABLED
2070 PURE module subroutine setNodeWeightGKAlloc_RK1(order, nodeK, weightK, weightG)
2071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2072 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK1
2073#endif
2074 use pm_kind, only: RKC => RK1
2075 integer(IK) , intent(in) :: order
2076 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2077 end subroutine
2078#endif
2079
2080 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2081
2082 end interface
2083
2084!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2085
2086 ! Naming convention: getQuadGKDFU, getQuadGKDPU, getQuadGKDNU, getQuadGKDBU
2087 ! G: Gauss rule,
2088 ! K: Kronrod rule,
2089 ! D: default method,
2090 ! F: finite integration limits,
2091 ! P: Positive integration limit,
2092 ! N: Negative integration limit,
2093 ! B: Both negative and positive integration limits,
2094
2202
2203 ! GK15
2204
2205 interface getQuadGK
2206
2207 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2208
2209#if RK5_ENABLED
2210 module function getQuadGK15_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2212 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK5
2213#endif
2214 use pm_kind, only: RKC => RK5
2215 procedure(real(RKC)) :: getFunc
2216 real(RKC) , intent(in) :: lb
2217 real(RKC) , intent(in) :: ub
2218 type(GK15_type) , intent(in) :: qrule
2219 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2220 real(RKC) :: quadGK
2221 end function
2222#endif
2223
2224#if RK4_ENABLED
2225 module function getQuadGK15_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2227 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK4
2228#endif
2229 use pm_kind, only: RKC => RK4
2230 procedure(real(RKC)) :: getFunc
2231 real(RKC) , intent(in) :: lb
2232 real(RKC) , intent(in) :: ub
2233 type(GK15_type) , intent(in) :: qrule
2234 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2235 real(RKC) :: quadGK
2236 end function
2237#endif
2238
2239#if RK3_ENABLED
2240 module function getQuadGK15_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2242 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK3
2243#endif
2244 use pm_kind, only: RKC => RK3
2245 procedure(real(RKC)) :: getFunc
2246 real(RKC) , intent(in) :: lb
2247 real(RKC) , intent(in) :: ub
2248 type(GK15_type) , intent(in) :: qrule
2249 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2250 real(RKC) :: quadGK
2251 end function
2252#endif
2253
2254#if RK2_ENABLED
2255 module function getQuadGK15_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2257 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK2
2258#endif
2259 use pm_kind, only: RKC => RK2
2260 procedure(real(RKC)) :: getFunc
2261 real(RKC) , intent(in) :: lb
2262 real(RKC) , intent(in) :: ub
2263 type(GK15_type) , intent(in) :: qrule
2264 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2265 real(RKC) :: quadGK
2266 end function
2267#endif
2268
2269#if RK1_ENABLED
2270 module function getQuadGK15_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2272 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK1
2273#endif
2274 use pm_kind, only: RKC => RK1
2275 procedure(real(RKC)) :: getFunc
2276 real(RKC) , intent(in) :: lb
2277 real(RKC) , intent(in) :: ub
2278 type(GK15_type) , intent(in) :: qrule
2279 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2280 real(RKC) :: quadGK
2281 end function
2282#endif
2283
2284 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2285
2286#if RK5_ENABLED
2287 module function getQuadGK15_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2289 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK5
2290#endif
2291 use pm_kind, only: RKC => RK5
2292 procedure(real(RKC)) :: getFunc
2293 real(RKC) , intent(in) :: lb
2294 type(pinf_type) , intent(in) :: ub
2295 type(GK15_type) , intent(in) :: qrule
2296 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2297 real(RKC) :: quadGK
2298 end function
2299#endif
2300
2301#if RK4_ENABLED
2302 module function getQuadGK15_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2304 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK4
2305#endif
2306 use pm_kind, only: RKC => RK4
2307 procedure(real(RKC)) :: getFunc
2308 real(RKC) , intent(in) :: lb
2309 type(pinf_type) , intent(in) :: ub
2310 type(GK15_type) , intent(in) :: qrule
2311 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2312 real(RKC) :: quadGK
2313 end function
2314#endif
2315
2316#if RK3_ENABLED
2317 module function getQuadGK15_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2319 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK3
2320#endif
2321 use pm_kind, only: RKC => RK3
2322 procedure(real(RKC)) :: getFunc
2323 real(RKC) , intent(in) :: lb
2324 type(pinf_type) , intent(in) :: ub
2325 type(GK15_type) , intent(in) :: qrule
2326 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2327 real(RKC) :: quadGK
2328 end function
2329#endif
2330
2331#if RK2_ENABLED
2332 module function getQuadGK15_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2334 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK2
2335#endif
2336 use pm_kind, only: RKC => RK2
2337 procedure(real(RKC)) :: getFunc
2338 real(RKC) , intent(in) :: lb
2339 type(pinf_type) , intent(in) :: ub
2340 type(GK15_type) , intent(in) :: qrule
2341 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2342 real(RKC) :: quadGK
2343 end function
2344#endif
2345
2346#if RK1_ENABLED
2347 module function getQuadGK15_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2349 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK1
2350#endif
2351 use pm_kind, only: RKC => RK1
2352 procedure(real(RKC)) :: getFunc
2353 real(RKC) , intent(in) :: lb
2354 type(pinf_type) , intent(in) :: ub
2355 type(GK15_type) , intent(in) :: qrule
2356 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2357 real(RKC) :: quadGK
2358 end function
2359#endif
2360
2361 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2362
2363#if RK5_ENABLED
2364 module function getQuadGK15_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2366 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK5
2367#endif
2368 use pm_kind, only: RKC => RK5
2369 procedure(real(RKC)) :: getFunc
2370 type(ninf_type) , intent(in) :: lb
2371 real(RKC) , intent(in) :: ub
2372 type(GK15_type) , intent(in) :: qrule
2373 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2374 real(RKC) :: quadGK
2375 end function
2376#endif
2377
2378#if RK4_ENABLED
2379 module function getQuadGK15_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2381 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK4
2382#endif
2383 use pm_kind, only: RKC => RK4
2384 procedure(real(RKC)) :: getFunc
2385 type(ninf_type) , intent(in) :: lb
2386 real(RKC) , intent(in) :: ub
2387 type(GK15_type) , intent(in) :: qrule
2388 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2389 real(RKC) :: quadGK
2390 end function
2391#endif
2392
2393#if RK3_ENABLED
2394 module function getQuadGK15_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2396 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK3
2397#endif
2398 use pm_kind, only: RKC => RK3
2399 procedure(real(RKC)) :: getFunc
2400 type(ninf_type) , intent(in) :: lb
2401 real(RKC) , intent(in) :: ub
2402 type(GK15_type) , intent(in) :: qrule
2403 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2404 real(RKC) :: quadGK
2405 end function
2406#endif
2407
2408#if RK2_ENABLED
2409 module function getQuadGK15_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2411 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK2
2412#endif
2413 use pm_kind, only: RKC => RK2
2414 procedure(real(RKC)) :: getFunc
2415 type(ninf_type) , intent(in) :: lb
2416 real(RKC) , intent(in) :: ub
2417 type(GK15_type) , intent(in) :: qrule
2418 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2419 real(RKC) :: quadGK
2420 end function
2421#endif
2422
2423#if RK1_ENABLED
2424 module function getQuadGK15_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2426 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK1
2427#endif
2428 use pm_kind, only: RKC => RK1
2429 procedure(real(RKC)) :: getFunc
2430 type(ninf_type) , intent(in) :: lb
2431 real(RKC) , intent(in) :: ub
2432 type(GK15_type) , intent(in) :: qrule
2433 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2434 real(RKC) :: quadGK
2435 end function
2436#endif
2437
2438 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2439
2440#if RK5_ENABLED
2441 module function getQuadGK15_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2443 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK5
2444#endif
2445 use pm_kind, only: RKC => RK5
2446 procedure(real(RKC)) :: getFunc
2447 type(ninf_type) , intent(in) :: lb
2448 type(pinf_type) , intent(in) :: ub
2449 type(GK15_type) , intent(in) :: qrule
2450 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2451 real(RKC) :: quadGK
2452 end function
2453#endif
2454
2455#if RK4_ENABLED
2456 module function getQuadGK15_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2458 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK4
2459#endif
2460 use pm_kind, only: RKC => RK4
2461 procedure(real(RKC)) :: getFunc
2462 type(ninf_type) , intent(in) :: lb
2463 type(pinf_type) , intent(in) :: ub
2464 type(GK15_type) , intent(in) :: qrule
2465 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2466 real(RKC) :: quadGK
2467 end function
2468#endif
2469
2470#if RK3_ENABLED
2471 module function getQuadGK15_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2473 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK3
2474#endif
2475 use pm_kind, only: RKC => RK3
2476 procedure(real(RKC)) :: getFunc
2477 type(ninf_type) , intent(in) :: lb
2478 type(pinf_type) , intent(in) :: ub
2479 type(GK15_type) , intent(in) :: qrule
2480 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2481 real(RKC) :: quadGK
2482 end function
2483#endif
2484
2485#if RK2_ENABLED
2486 module function getQuadGK15_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2488 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK2
2489#endif
2490 use pm_kind, only: RKC => RK2
2491 procedure(real(RKC)) :: getFunc
2492 type(ninf_type) , intent(in) :: lb
2493 type(pinf_type) , intent(in) :: ub
2494 type(GK15_type) , intent(in) :: qrule
2495 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2496 real(RKC) :: quadGK
2497 end function
2498#endif
2499
2500#if RK1_ENABLED
2501 module function getQuadGK15_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2503 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK1
2504#endif
2505 use pm_kind, only: RKC => RK1
2506 procedure(real(RKC)) :: getFunc
2507 type(ninf_type) , intent(in) :: lb
2508 type(pinf_type) , intent(in) :: ub
2509 type(GK15_type) , intent(in) :: qrule
2510 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2511 real(RKC) :: quadGK
2512 end function
2513#endif
2514
2515 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2516
2517 end interface
2518
2519 ! GK21
2520
2521 interface getQuadGK
2522
2523 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2524
2525#if RK5_ENABLED
2526 module function getQuadGK21_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2528 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK5
2529#endif
2530 use pm_kind, only: RKC => RK5
2531 procedure(real(RKC)) :: getFunc
2532 real(RKC) , intent(in) :: lb
2533 real(RKC) , intent(in) :: ub
2534 type(GK21_type) , intent(in) :: qrule
2535 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2536 real(RKC) :: quadGK
2537 end function
2538#endif
2539
2540#if RK4_ENABLED
2541 module function getQuadGK21_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2543 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK4
2544#endif
2545 use pm_kind, only: RKC => RK4
2546 procedure(real(RKC)) :: getFunc
2547 real(RKC) , intent(in) :: lb
2548 real(RKC) , intent(in) :: ub
2549 type(GK21_type) , intent(in) :: qrule
2550 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2551 real(RKC) :: quadGK
2552 end function
2553#endif
2554
2555#if RK3_ENABLED
2556 module function getQuadGK21_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2558 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK3
2559#endif
2560 use pm_kind, only: RKC => RK3
2561 procedure(real(RKC)) :: getFunc
2562 real(RKC) , intent(in) :: lb
2563 real(RKC) , intent(in) :: ub
2564 type(GK21_type) , intent(in) :: qrule
2565 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2566 real(RKC) :: quadGK
2567 end function
2568#endif
2569
2570#if RK2_ENABLED
2571 module function getQuadGK21_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2573 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK2
2574#endif
2575 use pm_kind, only: RKC => RK2
2576 procedure(real(RKC)) :: getFunc
2577 real(RKC) , intent(in) :: lb
2578 real(RKC) , intent(in) :: ub
2579 type(GK21_type) , intent(in) :: qrule
2580 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2581 real(RKC) :: quadGK
2582 end function
2583#endif
2584
2585#if RK1_ENABLED
2586 module function getQuadGK21_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2588 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK1
2589#endif
2590 use pm_kind, only: RKC => RK1
2591 procedure(real(RKC)) :: getFunc
2592 real(RKC) , intent(in) :: lb
2593 real(RKC) , intent(in) :: ub
2594 type(GK21_type) , intent(in) :: qrule
2595 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2596 real(RKC) :: quadGK
2597 end function
2598#endif
2599
2600 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2601
2602#if RK5_ENABLED
2603 module function getQuadGK21_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2605 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK5
2606#endif
2607 use pm_kind, only: RKC => RK5
2608 procedure(real(RKC)) :: getFunc
2609 real(RKC) , intent(in) :: lb
2610 type(pinf_type) , intent(in) :: ub
2611 type(GK21_type) , intent(in) :: qrule
2612 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2613 real(RKC) :: quadGK
2614 end function
2615#endif
2616
2617#if RK4_ENABLED
2618 module function getQuadGK21_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2620 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK4
2621#endif
2622 use pm_kind, only: RKC => RK4
2623 procedure(real(RKC)) :: getFunc
2624 real(RKC) , intent(in) :: lb
2625 type(pinf_type) , intent(in) :: ub
2626 type(GK21_type) , intent(in) :: qrule
2627 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2628 real(RKC) :: quadGK
2629 end function
2630#endif
2631
2632#if RK3_ENABLED
2633 module function getQuadGK21_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2635 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK3
2636#endif
2637 use pm_kind, only: RKC => RK3
2638 procedure(real(RKC)) :: getFunc
2639 real(RKC) , intent(in) :: lb
2640 type(pinf_type) , intent(in) :: ub
2641 type(GK21_type) , intent(in) :: qrule
2642 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2643 real(RKC) :: quadGK
2644 end function
2645#endif
2646
2647#if RK2_ENABLED
2648 module function getQuadGK21_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2650 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK2
2651#endif
2652 use pm_kind, only: RKC => RK2
2653 procedure(real(RKC)) :: getFunc
2654 real(RKC) , intent(in) :: lb
2655 type(pinf_type) , intent(in) :: ub
2656 type(GK21_type) , intent(in) :: qrule
2657 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2658 real(RKC) :: quadGK
2659 end function
2660#endif
2661
2662#if RK1_ENABLED
2663 module function getQuadGK21_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2665 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK1
2666#endif
2667 use pm_kind, only: RKC => RK1
2668 procedure(real(RKC)) :: getFunc
2669 real(RKC) , intent(in) :: lb
2670 type(pinf_type) , intent(in) :: ub
2671 type(GK21_type) , intent(in) :: qrule
2672 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2673 real(RKC) :: quadGK
2674 end function
2675#endif
2676
2677 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2678
2679#if RK5_ENABLED
2680 module function getQuadGK21_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2682 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK5
2683#endif
2684 use pm_kind, only: RKC => RK5
2685 procedure(real(RKC)) :: getFunc
2686 type(ninf_type) , intent(in) :: lb
2687 real(RKC) , intent(in) :: ub
2688 type(GK21_type) , intent(in) :: qrule
2689 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2690 real(RKC) :: quadGK
2691 end function
2692#endif
2693
2694#if RK4_ENABLED
2695 module function getQuadGK21_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2697 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK4
2698#endif
2699 use pm_kind, only: RKC => RK4
2700 procedure(real(RKC)) :: getFunc
2701 type(ninf_type) , intent(in) :: lb
2702 real(RKC) , intent(in) :: ub
2703 type(GK21_type) , intent(in) :: qrule
2704 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2705 real(RKC) :: quadGK
2706 end function
2707#endif
2708
2709#if RK3_ENABLED
2710 module function getQuadGK21_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2712 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK3
2713#endif
2714 use pm_kind, only: RKC => RK3
2715 procedure(real(RKC)) :: getFunc
2716 type(ninf_type) , intent(in) :: lb
2717 real(RKC) , intent(in) :: ub
2718 type(GK21_type) , intent(in) :: qrule
2719 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2720 real(RKC) :: quadGK
2721 end function
2722#endif
2723
2724#if RK2_ENABLED
2725 module function getQuadGK21_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2727 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK2
2728#endif
2729 use pm_kind, only: RKC => RK2
2730 procedure(real(RKC)) :: getFunc
2731 type(ninf_type) , intent(in) :: lb
2732 real(RKC) , intent(in) :: ub
2733 type(GK21_type) , intent(in) :: qrule
2734 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2735 real(RKC) :: quadGK
2736 end function
2737#endif
2738
2739#if RK1_ENABLED
2740 module function getQuadGK21_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2742 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK1
2743#endif
2744 use pm_kind, only: RKC => RK1
2745 procedure(real(RKC)) :: getFunc
2746 type(ninf_type) , intent(in) :: lb
2747 real(RKC) , intent(in) :: ub
2748 type(GK21_type) , intent(in) :: qrule
2749 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2750 real(RKC) :: quadGK
2751 end function
2752#endif
2753
2754 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2755
2756#if RK5_ENABLED
2757 module function getQuadGK21_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2759 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK5
2760#endif
2761 use pm_kind, only: RKC => RK5
2762 procedure(real(RKC)) :: getFunc
2763 type(ninf_type) , intent(in) :: lb
2764 type(pinf_type) , intent(in) :: ub
2765 type(GK21_type) , intent(in) :: qrule
2766 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2767 real(RKC) :: quadGK
2768 end function
2769#endif
2770
2771#if RK4_ENABLED
2772 module function getQuadGK21_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2774 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK4
2775#endif
2776 use pm_kind, only: RKC => RK4
2777 procedure(real(RKC)) :: getFunc
2778 type(ninf_type) , intent(in) :: lb
2779 type(pinf_type) , intent(in) :: ub
2780 type(GK21_type) , intent(in) :: qrule
2781 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2782 real(RKC) :: quadGK
2783 end function
2784#endif
2785
2786#if RK3_ENABLED
2787 module function getQuadGK21_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2789 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK3
2790#endif
2791 use pm_kind, only: RKC => RK3
2792 procedure(real(RKC)) :: getFunc
2793 type(ninf_type) , intent(in) :: lb
2794 type(pinf_type) , intent(in) :: ub
2795 type(GK21_type) , intent(in) :: qrule
2796 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2797 real(RKC) :: quadGK
2798 end function
2799#endif
2800
2801#if RK2_ENABLED
2802 module function getQuadGK21_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2804 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK2
2805#endif
2806 use pm_kind, only: RKC => RK2
2807 procedure(real(RKC)) :: getFunc
2808 type(ninf_type) , intent(in) :: lb
2809 type(pinf_type) , intent(in) :: ub
2810 type(GK21_type) , intent(in) :: qrule
2811 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2812 real(RKC) :: quadGK
2813 end function
2814#endif
2815
2816#if RK1_ENABLED
2817 module function getQuadGK21_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2819 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK1
2820#endif
2821 use pm_kind, only: RKC => RK1
2822 procedure(real(RKC)) :: getFunc
2823 type(ninf_type) , intent(in) :: lb
2824 type(pinf_type) , intent(in) :: ub
2825 type(GK21_type) , intent(in) :: qrule
2826 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2827 real(RKC) :: quadGK
2828 end function
2829#endif
2830
2831 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2832
2833 end interface
2834
2835 ! GK31
2836
2837 interface getQuadGK
2838
2839 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2840
2841#if RK5_ENABLED
2842 module function getQuadGK31_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2844 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK5
2845#endif
2846 use pm_kind, only: RKC => RK5
2847 procedure(real(RKC)) :: getFunc
2848 real(RKC) , intent(in) :: lb
2849 real(RKC) , intent(in) :: ub
2850 type(GK31_type) , intent(in) :: qrule
2851 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2852 real(RKC) :: quadGK
2853 end function
2854#endif
2855
2856#if RK4_ENABLED
2857 module function getQuadGK31_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2859 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK4
2860#endif
2861 use pm_kind, only: RKC => RK4
2862 procedure(real(RKC)) :: getFunc
2863 real(RKC) , intent(in) :: lb
2864 real(RKC) , intent(in) :: ub
2865 type(GK31_type) , intent(in) :: qrule
2866 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2867 real(RKC) :: quadGK
2868 end function
2869#endif
2870
2871#if RK3_ENABLED
2872 module function getQuadGK31_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2874 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK3
2875#endif
2876 use pm_kind, only: RKC => RK3
2877 procedure(real(RKC)) :: getFunc
2878 real(RKC) , intent(in) :: lb
2879 real(RKC) , intent(in) :: ub
2880 type(GK31_type) , intent(in) :: qrule
2881 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2882 real(RKC) :: quadGK
2883 end function
2884#endif
2885
2886#if RK2_ENABLED
2887 module function getQuadGK31_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2889 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK2
2890#endif
2891 use pm_kind, only: RKC => RK2
2892 procedure(real(RKC)) :: getFunc
2893 real(RKC) , intent(in) :: lb
2894 real(RKC) , intent(in) :: ub
2895 type(GK31_type) , intent(in) :: qrule
2896 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2897 real(RKC) :: quadGK
2898 end function
2899#endif
2900
2901#if RK1_ENABLED
2902 module function getQuadGK31_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2904 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK1
2905#endif
2906 use pm_kind, only: RKC => RK1
2907 procedure(real(RKC)) :: getFunc
2908 real(RKC) , intent(in) :: lb
2909 real(RKC) , intent(in) :: ub
2910 type(GK31_type) , intent(in) :: qrule
2911 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2912 real(RKC) :: quadGK
2913 end function
2914#endif
2915
2916 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2917
2918#if RK5_ENABLED
2919 module function getQuadGK31_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2921 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK5
2922#endif
2923 use pm_kind, only: RKC => RK5
2924 procedure(real(RKC)) :: getFunc
2925 real(RKC) , intent(in) :: lb
2926 type(pinf_type) , intent(in) :: ub
2927 type(GK31_type) , intent(in) :: qrule
2928 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2929 real(RKC) :: quadGK
2930 end function
2931#endif
2932
2933#if RK4_ENABLED
2934 module function getQuadGK31_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2936 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK4
2937#endif
2938 use pm_kind, only: RKC => RK4
2939 procedure(real(RKC)) :: getFunc
2940 real(RKC) , intent(in) :: lb
2941 type(pinf_type) , intent(in) :: ub
2942 type(GK31_type) , intent(in) :: qrule
2943 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2944 real(RKC) :: quadGK
2945 end function
2946#endif
2947
2948#if RK3_ENABLED
2949 module function getQuadGK31_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2951 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK3
2952#endif
2953 use pm_kind, only: RKC => RK3
2954 procedure(real(RKC)) :: getFunc
2955 real(RKC) , intent(in) :: lb
2956 type(pinf_type) , intent(in) :: ub
2957 type(GK31_type) , intent(in) :: qrule
2958 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2959 real(RKC) :: quadGK
2960 end function
2961#endif
2962
2963#if RK2_ENABLED
2964 module function getQuadGK31_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2966 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK2
2967#endif
2968 use pm_kind, only: RKC => RK2
2969 procedure(real(RKC)) :: getFunc
2970 real(RKC) , intent(in) :: lb
2971 type(pinf_type) , intent(in) :: ub
2972 type(GK31_type) , intent(in) :: qrule
2973 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2974 real(RKC) :: quadGK
2975 end function
2976#endif
2977
2978#if RK1_ENABLED
2979 module function getQuadGK31_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2981 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK1
2982#endif
2983 use pm_kind, only: RKC => RK1
2984 procedure(real(RKC)) :: getFunc
2985 real(RKC) , intent(in) :: lb
2986 type(pinf_type) , intent(in) :: ub
2987 type(GK31_type) , intent(in) :: qrule
2988 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2989 real(RKC) :: quadGK
2990 end function
2991#endif
2992
2993 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2994
2995#if RK5_ENABLED
2996 module function getQuadGK31_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2998 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK5
2999#endif
3000 use pm_kind, only: RKC => RK5
3001 procedure(real(RKC)) :: getFunc
3002 type(ninf_type) , intent(in) :: lb
3003 real(RKC) , intent(in) :: ub
3004 type(GK31_type) , intent(in) :: qrule
3005 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3006 real(RKC) :: quadGK
3007 end function
3008#endif
3009
3010#if RK4_ENABLED
3011 module function getQuadGK31_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3013 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK4
3014#endif
3015 use pm_kind, only: RKC => RK4
3016 procedure(real(RKC)) :: getFunc
3017 type(ninf_type) , intent(in) :: lb
3018 real(RKC) , intent(in) :: ub
3019 type(GK31_type) , intent(in) :: qrule
3020 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3021 real(RKC) :: quadGK
3022 end function
3023#endif
3024
3025#if RK3_ENABLED
3026 module function getQuadGK31_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3028 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK3
3029#endif
3030 use pm_kind, only: RKC => RK3
3031 procedure(real(RKC)) :: getFunc
3032 type(ninf_type) , intent(in) :: lb
3033 real(RKC) , intent(in) :: ub
3034 type(GK31_type) , intent(in) :: qrule
3035 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3036 real(RKC) :: quadGK
3037 end function
3038#endif
3039
3040#if RK2_ENABLED
3041 module function getQuadGK31_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3043 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK2
3044#endif
3045 use pm_kind, only: RKC => RK2
3046 procedure(real(RKC)) :: getFunc
3047 type(ninf_type) , intent(in) :: lb
3048 real(RKC) , intent(in) :: ub
3049 type(GK31_type) , intent(in) :: qrule
3050 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3051 real(RKC) :: quadGK
3052 end function
3053#endif
3054
3055#if RK1_ENABLED
3056 module function getQuadGK31_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3058 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK1
3059#endif
3060 use pm_kind, only: RKC => RK1
3061 procedure(real(RKC)) :: getFunc
3062 type(ninf_type) , intent(in) :: lb
3063 real(RKC) , intent(in) :: ub
3064 type(GK31_type) , intent(in) :: qrule
3065 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3066 real(RKC) :: quadGK
3067 end function
3068#endif
3069
3070 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3071
3072#if RK5_ENABLED
3073 module function getQuadGK31_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3075 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK5
3076#endif
3077 use pm_kind, only: RKC => RK5
3078 procedure(real(RKC)) :: getFunc
3079 type(ninf_type) , intent(in) :: lb
3080 type(pinf_type) , intent(in) :: ub
3081 type(GK31_type) , intent(in) :: qrule
3082 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3083 real(RKC) :: quadGK
3084 end function
3085#endif
3086
3087#if RK4_ENABLED
3088 module function getQuadGK31_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3090 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK4
3091#endif
3092 use pm_kind, only: RKC => RK4
3093 procedure(real(RKC)) :: getFunc
3094 type(ninf_type) , intent(in) :: lb
3095 type(pinf_type) , intent(in) :: ub
3096 type(GK31_type) , intent(in) :: qrule
3097 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3098 real(RKC) :: quadGK
3099 end function
3100#endif
3101
3102#if RK3_ENABLED
3103 module function getQuadGK31_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3105 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK3
3106#endif
3107 use pm_kind, only: RKC => RK3
3108 procedure(real(RKC)) :: getFunc
3109 type(ninf_type) , intent(in) :: lb
3110 type(pinf_type) , intent(in) :: ub
3111 type(GK31_type) , intent(in) :: qrule
3112 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3113 real(RKC) :: quadGK
3114 end function
3115#endif
3116
3117#if RK2_ENABLED
3118 module function getQuadGK31_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3120 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK2
3121#endif
3122 use pm_kind, only: RKC => RK2
3123 procedure(real(RKC)) :: getFunc
3124 type(ninf_type) , intent(in) :: lb
3125 type(pinf_type) , intent(in) :: ub
3126 type(GK31_type) , intent(in) :: qrule
3127 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3128 real(RKC) :: quadGK
3129 end function
3130#endif
3131
3132#if RK1_ENABLED
3133 module function getQuadGK31_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3134#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3135 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK1
3136#endif
3137 use pm_kind, only: RKC => RK1
3138 procedure(real(RKC)) :: getFunc
3139 type(ninf_type) , intent(in) :: lb
3140 type(pinf_type) , intent(in) :: ub
3141 type(GK31_type) , intent(in) :: qrule
3142 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3143 real(RKC) :: quadGK
3144 end function
3145#endif
3146
3147 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3148
3149 end interface
3150
3151 ! GK41
3152
3153 interface getQuadGK
3154
3155 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3156
3157#if RK5_ENABLED
3158 module function getQuadGK41_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3160 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK5
3161#endif
3162 use pm_kind, only: RKC => RK5
3163 procedure(real(RKC)) :: getFunc
3164 real(RKC) , intent(in) :: lb
3165 real(RKC) , intent(in) :: ub
3166 type(GK41_type) , intent(in) :: qrule
3167 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3168 real(RKC) :: quadGK
3169 end function
3170#endif
3171
3172#if RK4_ENABLED
3173 module function getQuadGK41_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3175 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK4
3176#endif
3177 use pm_kind, only: RKC => RK4
3178 procedure(real(RKC)) :: getFunc
3179 real(RKC) , intent(in) :: lb
3180 real(RKC) , intent(in) :: ub
3181 type(GK41_type) , intent(in) :: qrule
3182 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3183 real(RKC) :: quadGK
3184 end function
3185#endif
3186
3187#if RK3_ENABLED
3188 module function getQuadGK41_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3190 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK3
3191#endif
3192 use pm_kind, only: RKC => RK3
3193 procedure(real(RKC)) :: getFunc
3194 real(RKC) , intent(in) :: lb
3195 real(RKC) , intent(in) :: ub
3196 type(GK41_type) , intent(in) :: qrule
3197 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3198 real(RKC) :: quadGK
3199 end function
3200#endif
3201
3202#if RK2_ENABLED
3203 module function getQuadGK41_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3205 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK2
3206#endif
3207 use pm_kind, only: RKC => RK2
3208 procedure(real(RKC)) :: getFunc
3209 real(RKC) , intent(in) :: lb
3210 real(RKC) , intent(in) :: ub
3211 type(GK41_type) , intent(in) :: qrule
3212 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3213 real(RKC) :: quadGK
3214 end function
3215#endif
3216
3217#if RK1_ENABLED
3218 module function getQuadGK41_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3220 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK1
3221#endif
3222 use pm_kind, only: RKC => RK1
3223 procedure(real(RKC)) :: getFunc
3224 real(RKC) , intent(in) :: lb
3225 real(RKC) , intent(in) :: ub
3226 type(GK41_type) , intent(in) :: qrule
3227 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3228 real(RKC) :: quadGK
3229 end function
3230#endif
3231
3232 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3233
3234#if RK5_ENABLED
3235 module function getQuadGK41_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3237 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK5
3238#endif
3239 use pm_kind, only: RKC => RK5
3240 procedure(real(RKC)) :: getFunc
3241 real(RKC) , intent(in) :: lb
3242 type(pinf_type) , intent(in) :: ub
3243 type(GK41_type) , intent(in) :: qrule
3244 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3245 real(RKC) :: quadGK
3246 end function
3247#endif
3248
3249#if RK4_ENABLED
3250 module function getQuadGK41_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3252 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK4
3253#endif
3254 use pm_kind, only: RKC => RK4
3255 procedure(real(RKC)) :: getFunc
3256 real(RKC) , intent(in) :: lb
3257 type(pinf_type) , intent(in) :: ub
3258 type(GK41_type) , intent(in) :: qrule
3259 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3260 real(RKC) :: quadGK
3261 end function
3262#endif
3263
3264#if RK3_ENABLED
3265 module function getQuadGK41_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3267 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK3
3268#endif
3269 use pm_kind, only: RKC => RK3
3270 procedure(real(RKC)) :: getFunc
3271 real(RKC) , intent(in) :: lb
3272 type(pinf_type) , intent(in) :: ub
3273 type(GK41_type) , intent(in) :: qrule
3274 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3275 real(RKC) :: quadGK
3276 end function
3277#endif
3278
3279#if RK2_ENABLED
3280 module function getQuadGK41_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3282 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK2
3283#endif
3284 use pm_kind, only: RKC => RK2
3285 procedure(real(RKC)) :: getFunc
3286 real(RKC) , intent(in) :: lb
3287 type(pinf_type) , intent(in) :: ub
3288 type(GK41_type) , intent(in) :: qrule
3289 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3290 real(RKC) :: quadGK
3291 end function
3292#endif
3293
3294#if RK1_ENABLED
3295 module function getQuadGK41_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3297 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK1
3298#endif
3299 use pm_kind, only: RKC => RK1
3300 procedure(real(RKC)) :: getFunc
3301 real(RKC) , intent(in) :: lb
3302 type(pinf_type) , intent(in) :: ub
3303 type(GK41_type) , intent(in) :: qrule
3304 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3305 real(RKC) :: quadGK
3306 end function
3307#endif
3308
3309 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3310
3311#if RK5_ENABLED
3312 module function getQuadGK41_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3314 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK5
3315#endif
3316 use pm_kind, only: RKC => RK5
3317 procedure(real(RKC)) :: getFunc
3318 type(ninf_type) , intent(in) :: lb
3319 real(RKC) , intent(in) :: ub
3320 type(GK41_type) , intent(in) :: qrule
3321 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3322 real(RKC) :: quadGK
3323 end function
3324#endif
3325
3326#if RK4_ENABLED
3327 module function getQuadGK41_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3329 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK4
3330#endif
3331 use pm_kind, only: RKC => RK4
3332 procedure(real(RKC)) :: getFunc
3333 type(ninf_type) , intent(in) :: lb
3334 real(RKC) , intent(in) :: ub
3335 type(GK41_type) , intent(in) :: qrule
3336 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3337 real(RKC) :: quadGK
3338 end function
3339#endif
3340
3341#if RK3_ENABLED
3342 module function getQuadGK41_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3344 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK3
3345#endif
3346 use pm_kind, only: RKC => RK3
3347 procedure(real(RKC)) :: getFunc
3348 type(ninf_type) , intent(in) :: lb
3349 real(RKC) , intent(in) :: ub
3350 type(GK41_type) , intent(in) :: qrule
3351 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3352 real(RKC) :: quadGK
3353 end function
3354#endif
3355
3356#if RK2_ENABLED
3357 module function getQuadGK41_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3359 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK2
3360#endif
3361 use pm_kind, only: RKC => RK2
3362 procedure(real(RKC)) :: getFunc
3363 type(ninf_type) , intent(in) :: lb
3364 real(RKC) , intent(in) :: ub
3365 type(GK41_type) , intent(in) :: qrule
3366 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3367 real(RKC) :: quadGK
3368 end function
3369#endif
3370
3371#if RK1_ENABLED
3372 module function getQuadGK41_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3374 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK1
3375#endif
3376 use pm_kind, only: RKC => RK1
3377 procedure(real(RKC)) :: getFunc
3378 type(ninf_type) , intent(in) :: lb
3379 real(RKC) , intent(in) :: ub
3380 type(GK41_type) , intent(in) :: qrule
3381 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3382 real(RKC) :: quadGK
3383 end function
3384#endif
3385
3386 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3387
3388#if RK5_ENABLED
3389 module function getQuadGK41_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3391 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK5
3392#endif
3393 use pm_kind, only: RKC => RK5
3394 procedure(real(RKC)) :: getFunc
3395 type(ninf_type) , intent(in) :: lb
3396 type(pinf_type) , intent(in) :: ub
3397 type(GK41_type) , intent(in) :: qrule
3398 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3399 real(RKC) :: quadGK
3400 end function
3401#endif
3402
3403#if RK4_ENABLED
3404 module function getQuadGK41_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3406 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK4
3407#endif
3408 use pm_kind, only: RKC => RK4
3409 procedure(real(RKC)) :: getFunc
3410 type(ninf_type) , intent(in) :: lb
3411 type(pinf_type) , intent(in) :: ub
3412 type(GK41_type) , intent(in) :: qrule
3413 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3414 real(RKC) :: quadGK
3415 end function
3416#endif
3417
3418#if RK3_ENABLED
3419 module function getQuadGK41_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3421 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK3
3422#endif
3423 use pm_kind, only: RKC => RK3
3424 procedure(real(RKC)) :: getFunc
3425 type(ninf_type) , intent(in) :: lb
3426 type(pinf_type) , intent(in) :: ub
3427 type(GK41_type) , intent(in) :: qrule
3428 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3429 real(RKC) :: quadGK
3430 end function
3431#endif
3432
3433#if RK2_ENABLED
3434 module function getQuadGK41_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3436 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK2
3437#endif
3438 use pm_kind, only: RKC => RK2
3439 procedure(real(RKC)) :: getFunc
3440 type(ninf_type) , intent(in) :: lb
3441 type(pinf_type) , intent(in) :: ub
3442 type(GK41_type) , intent(in) :: qrule
3443 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3444 real(RKC) :: quadGK
3445 end function
3446#endif
3447
3448#if RK1_ENABLED
3449 module function getQuadGK41_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3451 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK1
3452#endif
3453 use pm_kind, only: RKC => RK1
3454 procedure(real(RKC)) :: getFunc
3455 type(ninf_type) , intent(in) :: lb
3456 type(pinf_type) , intent(in) :: ub
3457 type(GK41_type) , intent(in) :: qrule
3458 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3459 real(RKC) :: quadGK
3460 end function
3461#endif
3462
3463 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3464
3465 end interface
3466
3467 ! GK51
3468
3469 interface getQuadGK
3470
3471 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3472
3473#if RK5_ENABLED
3474 module function getQuadGK51_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3476 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK5
3477#endif
3478 use pm_kind, only: RKC => RK5
3479 procedure(real(RKC)) :: getFunc
3480 real(RKC) , intent(in) :: lb
3481 real(RKC) , intent(in) :: ub
3482 type(GK51_type) , intent(in) :: qrule
3483 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3484 real(RKC) :: quadGK
3485 end function
3486#endif
3487
3488#if RK4_ENABLED
3489 module function getQuadGK51_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3491 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK4
3492#endif
3493 use pm_kind, only: RKC => RK4
3494 procedure(real(RKC)) :: getFunc
3495 real(RKC) , intent(in) :: lb
3496 real(RKC) , intent(in) :: ub
3497 type(GK51_type) , intent(in) :: qrule
3498 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3499 real(RKC) :: quadGK
3500 end function
3501#endif
3502
3503#if RK3_ENABLED
3504 module function getQuadGK51_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3506 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK3
3507#endif
3508 use pm_kind, only: RKC => RK3
3509 procedure(real(RKC)) :: getFunc
3510 real(RKC) , intent(in) :: lb
3511 real(RKC) , intent(in) :: ub
3512 type(GK51_type) , intent(in) :: qrule
3513 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3514 real(RKC) :: quadGK
3515 end function
3516#endif
3517
3518#if RK2_ENABLED
3519 module function getQuadGK51_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3520#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3521 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK2
3522#endif
3523 use pm_kind, only: RKC => RK2
3524 procedure(real(RKC)) :: getFunc
3525 real(RKC) , intent(in) :: lb
3526 real(RKC) , intent(in) :: ub
3527 type(GK51_type) , intent(in) :: qrule
3528 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3529 real(RKC) :: quadGK
3530 end function
3531#endif
3532
3533#if RK1_ENABLED
3534 module function getQuadGK51_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3536 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK1
3537#endif
3538 use pm_kind, only: RKC => RK1
3539 procedure(real(RKC)) :: getFunc
3540 real(RKC) , intent(in) :: lb
3541 real(RKC) , intent(in) :: ub
3542 type(GK51_type) , intent(in) :: qrule
3543 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3544 real(RKC) :: quadGK
3545 end function
3546#endif
3547
3548 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3549
3550#if RK5_ENABLED
3551 module function getQuadGK51_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3553 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK5
3554#endif
3555 use pm_kind, only: RKC => RK5
3556 procedure(real(RKC)) :: getFunc
3557 real(RKC) , intent(in) :: lb
3558 type(pinf_type) , intent(in) :: ub
3559 type(GK51_type) , intent(in) :: qrule
3560 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3561 real(RKC) :: quadGK
3562 end function
3563#endif
3564
3565#if RK4_ENABLED
3566 module function getQuadGK51_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3568 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK4
3569#endif
3570 use pm_kind, only: RKC => RK4
3571 procedure(real(RKC)) :: getFunc
3572 real(RKC) , intent(in) :: lb
3573 type(pinf_type) , intent(in) :: ub
3574 type(GK51_type) , intent(in) :: qrule
3575 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3576 real(RKC) :: quadGK
3577 end function
3578#endif
3579
3580#if RK3_ENABLED
3581 module function getQuadGK51_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3583 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK3
3584#endif
3585 use pm_kind, only: RKC => RK3
3586 procedure(real(RKC)) :: getFunc
3587 real(RKC) , intent(in) :: lb
3588 type(pinf_type) , intent(in) :: ub
3589 type(GK51_type) , intent(in) :: qrule
3590 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3591 real(RKC) :: quadGK
3592 end function
3593#endif
3594
3595#if RK2_ENABLED
3596 module function getQuadGK51_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3598 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK2
3599#endif
3600 use pm_kind, only: RKC => RK2
3601 procedure(real(RKC)) :: getFunc
3602 real(RKC) , intent(in) :: lb
3603 type(pinf_type) , intent(in) :: ub
3604 type(GK51_type) , intent(in) :: qrule
3605 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3606 real(RKC) :: quadGK
3607 end function
3608#endif
3609
3610#if RK1_ENABLED
3611 module function getQuadGK51_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3612#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3613 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK1
3614#endif
3615 use pm_kind, only: RKC => RK1
3616 procedure(real(RKC)) :: getFunc
3617 real(RKC) , intent(in) :: lb
3618 type(pinf_type) , intent(in) :: ub
3619 type(GK51_type) , intent(in) :: qrule
3620 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3621 real(RKC) :: quadGK
3622 end function
3623#endif
3624
3625 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3626
3627#if RK5_ENABLED
3628 module function getQuadGK51_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3630 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK5
3631#endif
3632 use pm_kind, only: RKC => RK5
3633 procedure(real(RKC)) :: getFunc
3634 type(ninf_type) , intent(in) :: lb
3635 real(RKC) , intent(in) :: ub
3636 type(GK51_type) , intent(in) :: qrule
3637 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3638 real(RKC) :: quadGK
3639 end function
3640#endif
3641
3642#if RK4_ENABLED
3643 module function getQuadGK51_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3645 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK4
3646#endif
3647 use pm_kind, only: RKC => RK4
3648 procedure(real(RKC)) :: getFunc
3649 type(ninf_type) , intent(in) :: lb
3650 real(RKC) , intent(in) :: ub
3651 type(GK51_type) , intent(in) :: qrule
3652 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3653 real(RKC) :: quadGK
3654 end function
3655#endif
3656
3657#if RK3_ENABLED
3658 module function getQuadGK51_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3660 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK3
3661#endif
3662 use pm_kind, only: RKC => RK3
3663 procedure(real(RKC)) :: getFunc
3664 type(ninf_type) , intent(in) :: lb
3665 real(RKC) , intent(in) :: ub
3666 type(GK51_type) , intent(in) :: qrule
3667 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3668 real(RKC) :: quadGK
3669 end function
3670#endif
3671
3672#if RK2_ENABLED
3673 module function getQuadGK51_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3675 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK2
3676#endif
3677 use pm_kind, only: RKC => RK2
3678 procedure(real(RKC)) :: getFunc
3679 type(ninf_type) , intent(in) :: lb
3680 real(RKC) , intent(in) :: ub
3681 type(GK51_type) , intent(in) :: qrule
3682 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3683 real(RKC) :: quadGK
3684 end function
3685#endif
3686
3687#if RK1_ENABLED
3688 module function getQuadGK51_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3690 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK1
3691#endif
3692 use pm_kind, only: RKC => RK1
3693 procedure(real(RKC)) :: getFunc
3694 type(ninf_type) , intent(in) :: lb
3695 real(RKC) , intent(in) :: ub
3696 type(GK51_type) , intent(in) :: qrule
3697 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3698 real(RKC) :: quadGK
3699 end function
3700#endif
3701
3702 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3703
3704#if RK5_ENABLED
3705 module function getQuadGK51_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3707 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK5
3708#endif
3709 use pm_kind, only: RKC => RK5
3710 procedure(real(RKC)) :: getFunc
3711 type(ninf_type) , intent(in) :: lb
3712 type(pinf_type) , intent(in) :: ub
3713 type(GK51_type) , intent(in) :: qrule
3714 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3715 real(RKC) :: quadGK
3716 end function
3717#endif
3718
3719#if RK4_ENABLED
3720 module function getQuadGK51_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3722 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK4
3723#endif
3724 use pm_kind, only: RKC => RK4
3725 procedure(real(RKC)) :: getFunc
3726 type(ninf_type) , intent(in) :: lb
3727 type(pinf_type) , intent(in) :: ub
3728 type(GK51_type) , intent(in) :: qrule
3729 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3730 real(RKC) :: quadGK
3731 end function
3732#endif
3733
3734#if RK3_ENABLED
3735 module function getQuadGK51_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3737 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK3
3738#endif
3739 use pm_kind, only: RKC => RK3
3740 procedure(real(RKC)) :: getFunc
3741 type(ninf_type) , intent(in) :: lb
3742 type(pinf_type) , intent(in) :: ub
3743 type(GK51_type) , intent(in) :: qrule
3744 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3745 real(RKC) :: quadGK
3746 end function
3747#endif
3748
3749#if RK2_ENABLED
3750 module function getQuadGK51_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3752 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK2
3753#endif
3754 use pm_kind, only: RKC => RK2
3755 procedure(real(RKC)) :: getFunc
3756 type(ninf_type) , intent(in) :: lb
3757 type(pinf_type) , intent(in) :: ub
3758 type(GK51_type) , intent(in) :: qrule
3759 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3760 real(RKC) :: quadGK
3761 end function
3762#endif
3763
3764#if RK1_ENABLED
3765 module function getQuadGK51_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3767 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK1
3768#endif
3769 use pm_kind, only: RKC => RK1
3770 procedure(real(RKC)) :: getFunc
3771 type(ninf_type) , intent(in) :: lb
3772 type(pinf_type) , intent(in) :: ub
3773 type(GK51_type) , intent(in) :: qrule
3774 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3775 real(RKC) :: quadGK
3776 end function
3777#endif
3778
3779 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3780
3781 end interface
3782
3783 ! GK61
3784
3785 interface getQuadGK
3786
3787 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3788
3789#if RK5_ENABLED
3790 module function getQuadGK61_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3792 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK5
3793#endif
3794 use pm_kind, only: RKC => RK5
3795 procedure(real(RKC)) :: getFunc
3796 real(RKC) , intent(in) :: lb
3797 real(RKC) , intent(in) :: ub
3798 type(GK61_type) , intent(in) :: qrule
3799 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3800 real(RKC) :: quadGK
3801 end function
3802#endif
3803
3804#if RK4_ENABLED
3805 module function getQuadGK61_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3806#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3807 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK4
3808#endif
3809 use pm_kind, only: RKC => RK4
3810 procedure(real(RKC)) :: getFunc
3811 real(RKC) , intent(in) :: lb
3812 real(RKC) , intent(in) :: ub
3813 type(GK61_type) , intent(in) :: qrule
3814 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3815 real(RKC) :: quadGK
3816 end function
3817#endif
3818
3819#if RK3_ENABLED
3820 module function getQuadGK61_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3822 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK3
3823#endif
3824 use pm_kind, only: RKC => RK3
3825 procedure(real(RKC)) :: getFunc
3826 real(RKC) , intent(in) :: lb
3827 real(RKC) , intent(in) :: ub
3828 type(GK61_type) , intent(in) :: qrule
3829 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3830 real(RKC) :: quadGK
3831 end function
3832#endif
3833
3834#if RK2_ENABLED
3835 module function getQuadGK61_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3836#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3837 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK2
3838#endif
3839 use pm_kind, only: RKC => RK2
3840 procedure(real(RKC)) :: getFunc
3841 real(RKC) , intent(in) :: lb
3842 real(RKC) , intent(in) :: ub
3843 type(GK61_type) , intent(in) :: qrule
3844 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3845 real(RKC) :: quadGK
3846 end function
3847#endif
3848
3849#if RK1_ENABLED
3850 module function getQuadGK61_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3852 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK1
3853#endif
3854 use pm_kind, only: RKC => RK1
3855 procedure(real(RKC)) :: getFunc
3856 real(RKC) , intent(in) :: lb
3857 real(RKC) , intent(in) :: ub
3858 type(GK61_type) , intent(in) :: qrule
3859 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3860 real(RKC) :: quadGK
3861 end function
3862#endif
3863
3864 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3865
3866#if RK5_ENABLED
3867 module function getQuadGK61_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3869 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK5
3870#endif
3871 use pm_kind, only: RKC => RK5
3872 procedure(real(RKC)) :: getFunc
3873 real(RKC) , intent(in) :: lb
3874 type(pinf_type) , intent(in) :: ub
3875 type(GK61_type) , intent(in) :: qrule
3876 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3877 real(RKC) :: quadGK
3878 end function
3879#endif
3880
3881#if RK4_ENABLED
3882 module function getQuadGK61_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3884 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK4
3885#endif
3886 use pm_kind, only: RKC => RK4
3887 procedure(real(RKC)) :: getFunc
3888 real(RKC) , intent(in) :: lb
3889 type(pinf_type) , intent(in) :: ub
3890 type(GK61_type) , intent(in) :: qrule
3891 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3892 real(RKC) :: quadGK
3893 end function
3894#endif
3895
3896#if RK3_ENABLED
3897 module function getQuadGK61_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3899 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK3
3900#endif
3901 use pm_kind, only: RKC => RK3
3902 procedure(real(RKC)) :: getFunc
3903 real(RKC) , intent(in) :: lb
3904 type(pinf_type) , intent(in) :: ub
3905 type(GK61_type) , intent(in) :: qrule
3906 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3907 real(RKC) :: quadGK
3908 end function
3909#endif
3910
3911#if RK2_ENABLED
3912 module function getQuadGK61_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3914 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK2
3915#endif
3916 use pm_kind, only: RKC => RK2
3917 procedure(real(RKC)) :: getFunc
3918 real(RKC) , intent(in) :: lb
3919 type(pinf_type) , intent(in) :: ub
3920 type(GK61_type) , intent(in) :: qrule
3921 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3922 real(RKC) :: quadGK
3923 end function
3924#endif
3925
3926#if RK1_ENABLED
3927 module function getQuadGK61_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3929 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK1
3930#endif
3931 use pm_kind, only: RKC => RK1
3932 procedure(real(RKC)) :: getFunc
3933 real(RKC) , intent(in) :: lb
3934 type(pinf_type) , intent(in) :: ub
3935 type(GK61_type) , intent(in) :: qrule
3936 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3937 real(RKC) :: quadGK
3938 end function
3939#endif
3940
3941 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3942
3943#if RK5_ENABLED
3944 module function getQuadGK61_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3946 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK5
3947#endif
3948 use pm_kind, only: RKC => RK5
3949 procedure(real(RKC)) :: getFunc
3950 type(ninf_type) , intent(in) :: lb
3951 real(RKC) , intent(in) :: ub
3952 type(GK61_type) , intent(in) :: qrule
3953 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3954 real(RKC) :: quadGK
3955 end function
3956#endif
3957
3958#if RK4_ENABLED
3959 module function getQuadGK61_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3961 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK4
3962#endif
3963 use pm_kind, only: RKC => RK4
3964 procedure(real(RKC)) :: getFunc
3965 type(ninf_type) , intent(in) :: lb
3966 real(RKC) , intent(in) :: ub
3967 type(GK61_type) , intent(in) :: qrule
3968 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3969 real(RKC) :: quadGK
3970 end function
3971#endif
3972
3973#if RK3_ENABLED
3974 module function getQuadGK61_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3976 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK3
3977#endif
3978 use pm_kind, only: RKC => RK3
3979 procedure(real(RKC)) :: getFunc
3980 type(ninf_type) , intent(in) :: lb
3981 real(RKC) , intent(in) :: ub
3982 type(GK61_type) , intent(in) :: qrule
3983 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3984 real(RKC) :: quadGK
3985 end function
3986#endif
3987
3988#if RK2_ENABLED
3989 module function getQuadGK61_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3991 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK2
3992#endif
3993 use pm_kind, only: RKC => RK2
3994 procedure(real(RKC)) :: getFunc
3995 type(ninf_type) , intent(in) :: lb
3996 real(RKC) , intent(in) :: ub
3997 type(GK61_type) , intent(in) :: qrule
3998 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3999 real(RKC) :: quadGK
4000 end function
4001#endif
4002
4003#if RK1_ENABLED
4004 module function getQuadGK61_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4006 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK1
4007#endif
4008 use pm_kind, only: RKC => RK1
4009 procedure(real(RKC)) :: getFunc
4010 type(ninf_type) , intent(in) :: lb
4011 real(RKC) , intent(in) :: ub
4012 type(GK61_type) , intent(in) :: qrule
4013 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4014 real(RKC) :: quadGK
4015 end function
4016#endif
4017
4018 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4019
4020#if RK5_ENABLED
4021 module function getQuadGK61_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4023 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK5
4024#endif
4025 use pm_kind, only: RKC => RK5
4026 procedure(real(RKC)) :: getFunc
4027 type(ninf_type) , intent(in) :: lb
4028 type(pinf_type) , intent(in) :: ub
4029 type(GK61_type) , intent(in) :: qrule
4030 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4031 real(RKC) :: quadGK
4032 end function
4033#endif
4034
4035#if RK4_ENABLED
4036 module function getQuadGK61_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4038 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK4
4039#endif
4040 use pm_kind, only: RKC => RK4
4041 procedure(real(RKC)) :: getFunc
4042 type(ninf_type) , intent(in) :: lb
4043 type(pinf_type) , intent(in) :: ub
4044 type(GK61_type) , intent(in) :: qrule
4045 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4046 real(RKC) :: quadGK
4047 end function
4048#endif
4049
4050#if RK3_ENABLED
4051 module function getQuadGK61_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4053 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK3
4054#endif
4055 use pm_kind, only: RKC => RK3
4056 procedure(real(RKC)) :: getFunc
4057 type(ninf_type) , intent(in) :: lb
4058 type(pinf_type) , intent(in) :: ub
4059 type(GK61_type) , intent(in) :: qrule
4060 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4061 real(RKC) :: quadGK
4062 end function
4063#endif
4064
4065#if RK2_ENABLED
4066 module function getQuadGK61_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4068 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK2
4069#endif
4070 use pm_kind, only: RKC => RK2
4071 procedure(real(RKC)) :: getFunc
4072 type(ninf_type) , intent(in) :: lb
4073 type(pinf_type) , intent(in) :: ub
4074 type(GK61_type) , intent(in) :: qrule
4075 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4076 real(RKC) :: quadGK
4077 end function
4078#endif
4079
4080#if RK1_ENABLED
4081 module function getQuadGK61_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4083 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK1
4084#endif
4085 use pm_kind, only: RKC => RK1
4086 procedure(real(RKC)) :: getFunc
4087 type(ninf_type) , intent(in) :: lb
4088 type(pinf_type) , intent(in) :: ub
4089 type(GK61_type) , intent(in) :: qrule
4090 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4091 real(RKC) :: quadGK
4092 end function
4093#endif
4094
4095 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4096
4097 end interface
4098
4099 ! GKXX
4100
4101 interface getQuadGK
4102
4103 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4104
4105#if RK5_ENABLED
4106 module function getQuadGKXX_FF_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4108 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK5
4109#endif
4110 use pm_kind, only: RKC => RK5
4111 procedure(real(RKC)) :: getFunc
4112 real(RKC) , intent(in) :: lb
4113 real(RKC) , intent(in) :: ub
4114 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4115 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4116 real(RKC) :: quadGK
4117 end function
4118#endif
4119
4120#if RK4_ENABLED
4121 module function getQuadGKXX_FF_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4123 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK4
4124#endif
4125 use pm_kind, only: RKC => RK4
4126 procedure(real(RKC)) :: getFunc
4127 real(RKC) , intent(in) :: lb
4128 real(RKC) , intent(in) :: ub
4129 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4130 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4131 real(RKC) :: quadGK
4132 end function
4133#endif
4134
4135#if RK3_ENABLED
4136 module function getQuadGKXX_FF_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4138 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK3
4139#endif
4140 use pm_kind, only: RKC => RK3
4141 procedure(real(RKC)) :: getFunc
4142 real(RKC) , intent(in) :: lb
4143 real(RKC) , intent(in) :: ub
4144 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4145 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4146 real(RKC) :: quadGK
4147 end function
4148#endif
4149
4150#if RK2_ENABLED
4151 module function getQuadGKXX_FF_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4152#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4153 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK2
4154#endif
4155 use pm_kind, only: RKC => RK2
4156 procedure(real(RKC)) :: getFunc
4157 real(RKC) , intent(in) :: lb
4158 real(RKC) , intent(in) :: ub
4159 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4160 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4161 real(RKC) :: quadGK
4162 end function
4163#endif
4164
4165#if RK1_ENABLED
4166 module function getQuadGKXX_FF_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4168 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK1
4169#endif
4170 use pm_kind, only: RKC => RK1
4171 procedure(real(RKC)) :: getFunc
4172 real(RKC) , intent(in) :: lb
4173 real(RKC) , intent(in) :: ub
4174 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4175 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4176 real(RKC) :: quadGK
4177 end function
4178#endif
4179
4180 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4181
4182#if RK5_ENABLED
4183 module function getQuadGKXX_FI_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4185 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK5
4186#endif
4187 use pm_kind, only: RKC => RK5
4188 procedure(real(RKC)) :: getFunc
4189 real(RKC) , intent(in) :: lb
4190 type(pinf_type) , intent(in) :: ub
4191 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4192 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4193 real(RKC) :: quadGK
4194 end function
4195#endif
4196
4197#if RK4_ENABLED
4198 module function getQuadGKXX_FI_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4200 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK4
4201#endif
4202 use pm_kind, only: RKC => RK4
4203 procedure(real(RKC)) :: getFunc
4204 real(RKC) , intent(in) :: lb
4205 type(pinf_type) , intent(in) :: ub
4206 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4207 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4208 real(RKC) :: quadGK
4209 end function
4210#endif
4211
4212#if RK3_ENABLED
4213 module function getQuadGKXX_FI_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4215 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK3
4216#endif
4217 use pm_kind, only: RKC => RK3
4218 procedure(real(RKC)) :: getFunc
4219 real(RKC) , intent(in) :: lb
4220 type(pinf_type) , intent(in) :: ub
4221 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4222 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4223 real(RKC) :: quadGK
4224 end function
4225#endif
4226
4227#if RK2_ENABLED
4228 module function getQuadGKXX_FI_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4230 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK2
4231#endif
4232 use pm_kind, only: RKC => RK2
4233 procedure(real(RKC)) :: getFunc
4234 real(RKC) , intent(in) :: lb
4235 type(pinf_type) , intent(in) :: ub
4236 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4237 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4238 real(RKC) :: quadGK
4239 end function
4240#endif
4241
4242#if RK1_ENABLED
4243 module function getQuadGKXX_FI_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4245 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK1
4246#endif
4247 use pm_kind, only: RKC => RK1
4248 procedure(real(RKC)) :: getFunc
4249 real(RKC) , intent(in) :: lb
4250 type(pinf_type) , intent(in) :: ub
4251 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4252 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4253 real(RKC) :: quadGK
4254 end function
4255#endif
4256
4257 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4258
4259#if RK5_ENABLED
4260 module function getQuadGKXX_IF_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4262 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK5
4263#endif
4264 use pm_kind, only: RKC => RK5
4265 procedure(real(RKC)) :: getFunc
4266 type(ninf_type) , intent(in) :: lb
4267 real(RKC) , intent(in) :: ub
4268 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4269 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4270 real(RKC) :: quadGK
4271 end function
4272#endif
4273
4274#if RK4_ENABLED
4275 module function getQuadGKXX_IF_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4277 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK4
4278#endif
4279 use pm_kind, only: RKC => RK4
4280 procedure(real(RKC)) :: getFunc
4281 type(ninf_type) , intent(in) :: lb
4282 real(RKC) , intent(in) :: ub
4283 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4284 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4285 real(RKC) :: quadGK
4286 end function
4287#endif
4288
4289#if RK3_ENABLED
4290 module function getQuadGKXX_IF_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4292 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK3
4293#endif
4294 use pm_kind, only: RKC => RK3
4295 procedure(real(RKC)) :: getFunc
4296 type(ninf_type) , intent(in) :: lb
4297 real(RKC) , intent(in) :: ub
4298 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4299 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4300 real(RKC) :: quadGK
4301 end function
4302#endif
4303
4304#if RK2_ENABLED
4305 module function getQuadGKXX_IF_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4307 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK2
4308#endif
4309 use pm_kind, only: RKC => RK2
4310 procedure(real(RKC)) :: getFunc
4311 type(ninf_type) , intent(in) :: lb
4312 real(RKC) , intent(in) :: ub
4313 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4314 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4315 real(RKC) :: quadGK
4316 end function
4317#endif
4318
4319#if RK1_ENABLED
4320 module function getQuadGKXX_IF_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4322 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK1
4323#endif
4324 use pm_kind, only: RKC => RK1
4325 procedure(real(RKC)) :: getFunc
4326 type(ninf_type) , intent(in) :: lb
4327 real(RKC) , intent(in) :: ub
4328 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4329 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4330 real(RKC) :: quadGK
4331 end function
4332#endif
4333
4334 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4335
4336#if RK5_ENABLED
4337 module function getQuadGKXX_II_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4339 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK5
4340#endif
4341 use pm_kind, only: RKC => RK5
4342 procedure(real(RKC)) :: getFunc
4343 type(ninf_type) , intent(in) :: lb
4344 type(pinf_type) , intent(in) :: ub
4345 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4346 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4347 real(RKC) :: quadGK
4348 end function
4349#endif
4350
4351#if RK4_ENABLED
4352 module function getQuadGKXX_II_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4354 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK4
4355#endif
4356 use pm_kind, only: RKC => RK4
4357 procedure(real(RKC)) :: getFunc
4358 type(ninf_type) , intent(in) :: lb
4359 type(pinf_type) , intent(in) :: ub
4360 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4361 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4362 real(RKC) :: quadGK
4363 end function
4364#endif
4365
4366#if RK3_ENABLED
4367 module function getQuadGKXX_II_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4369 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK3
4370#endif
4371 use pm_kind, only: RKC => RK3
4372 procedure(real(RKC)) :: getFunc
4373 type(ninf_type) , intent(in) :: lb
4374 type(pinf_type) , intent(in) :: ub
4375 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4376 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4377 real(RKC) :: quadGK
4378 end function
4379#endif
4380
4381#if RK2_ENABLED
4382 module function getQuadGKXX_II_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4384 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK2
4385#endif
4386 use pm_kind, only: RKC => RK2
4387 procedure(real(RKC)) :: getFunc
4388 type(ninf_type) , intent(in) :: lb
4389 type(pinf_type) , intent(in) :: ub
4390 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4391 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4392 real(RKC) :: quadGK
4393 end function
4394#endif
4395
4396#if RK1_ENABLED
4397 module function getQuadGKXX_II_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4398#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4399 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK1
4400#endif
4401 use pm_kind, only: RKC => RK1
4402 procedure(real(RKC)) :: getFunc
4403 type(ninf_type) , intent(in) :: lb
4404 type(pinf_type) , intent(in) :: ub
4405 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4406 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4407 real(RKC) :: quadGK
4408 end function
4409#endif
4410
4411 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4412
4413 end interface
4414
4415!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4416
4434 integer(IK) , parameter :: MAXLEN_EPSTAB = 50_IK
4435
4464 end type
4465
4484 type(weps_type) , parameter :: weps = weps_type()
4485
4486!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4487
4530
4531 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4532
4533#if RK5_ENABLED
4534 pure module subroutine setSeqLimEps_RK5(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4536 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK5
4537#endif
4538 use pm_kind, only: RKC => RK5
4539 integer(IK) , intent(inout) :: inew, ical
4540 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4541 real(RKC) , intent(out) :: seqlim, abserr
4542 end subroutine
4543#endif
4544
4545#if RK4_ENABLED
4546 pure module subroutine setSeqLimEps_RK4(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4548 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK4
4549#endif
4550 use pm_kind, only: RKC => RK4
4551 integer(IK) , intent(inout) :: inew, ical
4552 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4553 real(RKC) , intent(out) :: seqlim, abserr
4554 end subroutine
4555#endif
4556
4557#if RK3_ENABLED
4558 pure module subroutine setSeqLimEps_RK3(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4560 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK3
4561#endif
4562 use pm_kind, only: RKC => RK3
4563 integer(IK) , intent(inout) :: inew, ical
4564 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4565 real(RKC) , intent(out) :: seqlim, abserr
4566 end subroutine
4567#endif
4568
4569#if RK2_ENABLED
4570 pure module subroutine setSeqLimEps_RK2(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4572 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK2
4573#endif
4574 use pm_kind, only: RKC => RK2
4575 integer(IK) , intent(inout) :: inew, ical
4576 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4577 real(RKC) , intent(out) :: seqlim, abserr
4578 end subroutine
4579#endif
4580
4581#if RK1_ENABLED
4582 pure module subroutine setSeqLimEps_RK1(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4583#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4584 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK1
4585#endif
4586 use pm_kind, only: RKC => RK1
4587 integer(IK) , intent(inout) :: inew, ical
4588 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4589 real(RKC) , intent(out) :: seqlim, abserr
4590 end subroutine
4591#endif
4592
4593 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4594
4595 end interface
4596
4597!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4598
4643
4644 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4645
4646#if RK5_ENABLED
4647 PURE module subroutine setErrSorted_RK5(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4648#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4649 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK5
4650#endif
4651 use pm_kind, only: RKC => RK5
4652 integer(IK) , intent(in) :: nintmax
4653 real(RKC) , intent(in) :: sinfoErr(:)
4654 integer(IK) , intent(inout) , contiguous :: sindex(:)
4655 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4656 real(RKC) , intent(out) :: maxErrVal
4657 end subroutine
4658#endif
4659
4660#if RK4_ENABLED
4661 PURE module subroutine setErrSorted_RK4(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4663 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK4
4664#endif
4665 use pm_kind, only: RKC => RK4
4666 integer(IK) , intent(in) :: nintmax
4667 real(RKC) , intent(in) :: sinfoErr(:)
4668 integer(IK) , intent(inout) , contiguous :: sindex(:)
4669 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4670 real(RKC) , intent(out) :: maxErrVal
4671 end subroutine
4672#endif
4673
4674#if RK3_ENABLED
4675 PURE module subroutine setErrSorted_RK3(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4676#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4677 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK3
4678#endif
4679 use pm_kind, only: RKC => RK3
4680 integer(IK) , intent(in) :: nintmax
4681 real(RKC) , intent(in) :: sinfoErr(:)
4682 integer(IK) , intent(inout) , contiguous :: sindex(:)
4683 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4684 real(RKC) , intent(out) :: maxErrVal
4685 end subroutine
4686#endif
4687
4688#if RK2_ENABLED
4689 PURE module subroutine setErrSorted_RK2(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4690#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4691 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK2
4692#endif
4693 use pm_kind, only: RKC => RK2
4694 integer(IK) , intent(in) :: nintmax
4695 real(RKC) , intent(in) :: sinfoErr(:)
4696 integer(IK) , intent(inout) , contiguous :: sindex(:)
4697 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4698 real(RKC) , intent(out) :: maxErrVal
4699 end subroutine
4700#endif
4701
4702#if RK1_ENABLED
4703 PURE module subroutine setErrSorted_RK1(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4705 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK1
4706#endif
4707 use pm_kind, only: RKC => RK1
4708 integer(IK) , intent(in) :: nintmax
4709 real(RKC) , intent(in) :: sinfoErr(:)
4710 integer(IK) , intent(inout) , contiguous :: sindex(:)
4711 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4712 real(RKC) , intent(out) :: maxErrVal
4713 end subroutine
4714#endif
4715
4716 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4717
4718 end interface
4719
4720!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4721
4769
4770 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4771
4772#if RK5_ENABLED
4773 pure module subroutine setChebExpan_RK5(func, cheb12, cheb24)
4774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4775 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK5
4776#endif
4777 use pm_kind, only: RKC => RK5
4778 real(RKC) , intent(inout) :: func(25)
4779 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4780 end subroutine
4781#endif
4782
4783#if RK4_ENABLED
4784 pure module subroutine setChebExpan_RK4(func, cheb12, cheb24)
4785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4786 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK4
4787#endif
4788 use pm_kind, only: RKC => RK4
4789 real(RKC) , intent(inout) :: func(25)
4790 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4791 end subroutine
4792#endif
4793
4794#if RK3_ENABLED
4795 pure module subroutine setChebExpan_RK3(func, cheb12, cheb24)
4796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4797 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK3
4798#endif
4799 use pm_kind, only: RKC => RK3
4800 real(RKC) , intent(inout) :: func(25)
4801 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4802 end subroutine
4803#endif
4804
4805#if RK2_ENABLED
4806 pure module subroutine setChebExpan_RK2(func, cheb12, cheb24)
4807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4808 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK2
4809#endif
4810 use pm_kind, only: RKC => RK2
4811 real(RKC) , intent(inout) :: func(25)
4812 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4813 end subroutine
4814#endif
4815
4816#if RK1_ENABLED
4817 pure module subroutine setChebExpan_RK1(func, cheb12, cheb24)
4818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4819 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK1
4820#endif
4821 use pm_kind, only: RKC => RK1
4822 real(RKC) , intent(inout) :: func(25)
4823 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4824 end subroutine
4825#endif
4826
4827 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4828
4829 end interface
4830
4831!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4832
4920
4921 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4922
4923#if RK5_ENABLED
4924 module function isFailedQuadQAGD_RK5(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
4925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4926 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK5
4927#endif
4928 use pm_kind, only: RKC => RK5
4929 procedure(real(RKC)) :: getFunc
4930 real(RKC) , intent(in) :: lb, ub
4931 real(RKC) , intent(out) :: integral
4932 real(RKC) , intent(out) , optional :: abserr
4933 real(RKC) , intent(in) , optional :: abstol
4934 real(RKC) , intent(in) , optional :: reltol
4935 integer(IK) , intent(out) , optional :: neval
4936 integer(IK) , intent(out) , optional :: nint
4937 character(*, SK) , intent(out) , optional :: msg
4938 logical(LK) :: failed
4939 end function
4940#endif
4941
4942#if RK4_ENABLED
4943 module function isFailedQuadQAGD_RK4(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
4944#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4945 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK4
4946#endif
4947 use pm_kind, only: RKC => RK4
4948 procedure(real(RKC)) :: getFunc
4949 real(RKC) , intent(in) :: lb, ub
4950 real(RKC) , intent(out) :: integral
4951 real(RKC) , intent(out) , optional :: abserr
4952 real(RKC) , intent(in) , optional :: abstol
4953 real(RKC) , intent(in) , optional :: reltol
4954 integer(IK) , intent(out) , optional :: neval
4955 integer(IK) , intent(out) , optional :: nint
4956 character(*, SK) , intent(out) , optional :: msg
4957 logical(LK) :: failed
4958 end function
4959#endif
4960
4961#if RK3_ENABLED
4962 module function isFailedQuadQAGD_RK3(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
4963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4964 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK3
4965#endif
4966 use pm_kind, only: RKC => RK3
4967 procedure(real(RKC)) :: getFunc
4968 real(RKC) , intent(in) :: lb, ub
4969 real(RKC) , intent(out) :: integral
4970 real(RKC) , intent(out) , optional :: abserr
4971 real(RKC) , intent(in) , optional :: abstol
4972 real(RKC) , intent(in) , optional :: reltol
4973 integer(IK) , intent(out) , optional :: neval
4974 integer(IK) , intent(out) , optional :: nint
4975 character(*, SK) , intent(out) , optional :: msg
4976 logical(LK) :: failed
4977 end function
4978#endif
4979
4980#if RK2_ENABLED
4981 module function isFailedQuadQAGD_RK2(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
4982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4983 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK2
4984#endif
4985 use pm_kind, only: RKC => RK2
4986 procedure(real(RKC)) :: getFunc
4987 real(RKC) , intent(in) :: lb, ub
4988 real(RKC) , intent(out) :: integral
4989 real(RKC) , intent(out) , optional :: abserr
4990 real(RKC) , intent(in) , optional :: abstol
4991 real(RKC) , intent(in) , optional :: reltol
4992 integer(IK) , intent(out) , optional :: neval
4993 integer(IK) , intent(out) , optional :: nint
4994 character(*, SK) , intent(out) , optional :: msg
4995 logical(LK) :: failed
4996 end function
4997#endif
4998
4999#if RK1_ENABLED
5000 module function isFailedQuadQAGD_RK1(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5002 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK1
5003#endif
5004 use pm_kind, only: RKC => RK1
5005 procedure(real(RKC)) :: getFunc
5006 real(RKC) , intent(in) :: lb, ub
5007 real(RKC) , intent(out) :: integral
5008 real(RKC) , intent(out) , optional :: abserr
5009 real(RKC) , intent(in) , optional :: abstol
5010 real(RKC) , intent(in) , optional :: reltol
5011 integer(IK) , intent(out) , optional :: neval
5012 integer(IK) , intent(out) , optional :: nint
5013 character(*, SK) , intent(out) , optional :: msg
5014 logical(LK) :: failed
5015 end function
5016#endif
5017
5018 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5019
5020#if RK5_ENABLED
5021 module function isFailedQuadQAGS_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5023 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK5
5024#endif
5025 use pm_kind, only: RKC => RK5
5026 procedure(real(RKC)) :: getFunc
5027 real(RKC) , intent(in) :: lb, ub
5028 real(RKC) , intent(out) :: integral
5029 type(weps_type) , intent(in) :: help
5030 real(RKC) , intent(out) , optional :: abserr
5031 real(RKC) , intent(in) , optional :: abstol
5032 real(RKC) , intent(in) , optional :: reltol
5033 integer(IK) , intent(out) , optional :: neval
5034 integer(IK) , intent(out) , optional :: nint
5035 character(*, SK) , intent(out) , optional :: msg
5036 logical(LK) :: failed
5037 end function
5038#endif
5039
5040#if RK4_ENABLED
5041 module function isFailedQuadQAGS_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5043 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK4
5044#endif
5045 use pm_kind, only: RKC => RK4
5046 procedure(real(RKC)) :: getFunc
5047 real(RKC) , intent(in) :: lb, ub
5048 real(RKC) , intent(out) :: integral
5049 type(weps_type) , intent(in) :: help
5050 real(RKC) , intent(out) , optional :: abserr
5051 real(RKC) , intent(in) , optional :: abstol
5052 real(RKC) , intent(in) , optional :: reltol
5053 integer(IK) , intent(out) , optional :: neval
5054 integer(IK) , intent(out) , optional :: nint
5055 character(*, SK) , intent(out) , optional :: msg
5056 logical(LK) :: failed
5057 end function
5058#endif
5059
5060#if RK3_ENABLED
5061 module function isFailedQuadQAGS_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5063 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK3
5064#endif
5065 use pm_kind, only: RKC => RK3
5066 procedure(real(RKC)) :: getFunc
5067 real(RKC) , intent(in) :: lb, ub
5068 real(RKC) , intent(out) :: integral
5069 type(weps_type) , intent(in) :: help
5070 real(RKC) , intent(out) , optional :: abserr
5071 real(RKC) , intent(in) , optional :: abstol
5072 real(RKC) , intent(in) , optional :: reltol
5073 integer(IK) , intent(out) , optional :: neval
5074 integer(IK) , intent(out) , optional :: nint
5075 character(*, SK) , intent(out) , optional :: msg
5076 logical(LK) :: failed
5077 end function
5078#endif
5079
5080#if RK2_ENABLED
5081 module function isFailedQuadQAGS_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5083 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK2
5084#endif
5085 use pm_kind, only: RKC => RK2
5086 procedure(real(RKC)) :: getFunc
5087 real(RKC) , intent(in) :: lb, ub
5088 real(RKC) , intent(out) :: integral
5089 type(weps_type) , intent(in) :: help
5090 real(RKC) , intent(out) , optional :: abserr
5091 real(RKC) , intent(in) , optional :: abstol
5092 real(RKC) , intent(in) , optional :: reltol
5093 integer(IK) , intent(out) , optional :: neval
5094 integer(IK) , intent(out) , optional :: nint
5095 character(*, SK) , intent(out) , optional :: msg
5096 logical(LK) :: failed
5097 end function
5098#endif
5099
5100#if RK1_ENABLED
5101 module function isFailedQuadQAGS_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5103 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK1
5104#endif
5105 use pm_kind, only: RKC => RK1
5106 procedure(real(RKC)) :: getFunc
5107 real(RKC) , intent(in) :: lb, ub
5108 real(RKC) , intent(out) :: integral
5109 type(weps_type) , intent(in) :: help
5110 real(RKC) , intent(out) , optional :: abserr
5111 real(RKC) , intent(in) , optional :: abstol
5112 real(RKC) , intent(in) , optional :: reltol
5113 integer(IK) , intent(out) , optional :: neval
5114 integer(IK) , intent(out) , optional :: nint
5115 character(*, SK) , intent(out) , optional :: msg
5116 logical(LK) :: failed
5117 end function
5118#endif
5119
5120 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5121
5122#if RK5_ENABLED
5123 module function isFailedQuadQAGP_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5125 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK5
5126#endif
5127 use pm_kind, only: RKC => RK5
5128 procedure(real(RKC)) :: getFunc
5129 real(RKC) , intent(in) :: lb, ub
5130 real(RKC) , intent(out) :: integral
5131 real(RKC) , intent(in) , contiguous :: help(:)
5132 real(RKC) , intent(out) , optional :: abserr
5133 real(RKC) , intent(in) , optional :: abstol
5134 real(RKC) , intent(in) , optional :: reltol
5135 integer(IK) , intent(out) , optional :: neval
5136 integer(IK) , intent(out) , optional :: nint
5137 character(*, SK) , intent(out) , optional :: msg
5138 logical(LK) :: failed
5139 end function
5140#endif
5141
5142#if RK4_ENABLED
5143 module function isFailedQuadQAGP_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5144#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5145 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK4
5146#endif
5147 use pm_kind, only: RKC => RK4
5148 procedure(real(RKC)) :: getFunc
5149 real(RKC) , intent(in) :: lb, ub
5150 real(RKC) , intent(out) :: integral
5151 real(RKC) , intent(in) , contiguous :: help(:)
5152 real(RKC) , intent(out) , optional :: abserr
5153 real(RKC) , intent(in) , optional :: abstol
5154 real(RKC) , intent(in) , optional :: reltol
5155 integer(IK) , intent(out) , optional :: neval
5156 integer(IK) , intent(out) , optional :: nint
5157 character(*, SK) , intent(out) , optional :: msg
5158 logical(LK) :: failed
5159 end function
5160#endif
5161
5162#if RK3_ENABLED
5163 module function isFailedQuadQAGP_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5165 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK3
5166#endif
5167 use pm_kind, only: RKC => RK3
5168 procedure(real(RKC)) :: getFunc
5169 real(RKC) , intent(in) :: lb, ub
5170 real(RKC) , intent(out) :: integral
5171 real(RKC) , intent(in) , contiguous :: help(:)
5172 real(RKC) , intent(out) , optional :: abserr
5173 real(RKC) , intent(in) , optional :: abstol
5174 real(RKC) , intent(in) , optional :: reltol
5175 integer(IK) , intent(out) , optional :: neval
5176 integer(IK) , intent(out) , optional :: nint
5177 character(*, SK) , intent(out) , optional :: msg
5178 logical(LK) :: failed
5179 end function
5180#endif
5181
5182#if RK2_ENABLED
5183 module function isFailedQuadQAGP_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5185 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK2
5186#endif
5187 use pm_kind, only: RKC => RK2
5188 procedure(real(RKC)) :: getFunc
5189 real(RKC) , intent(in) :: lb, ub
5190 real(RKC) , intent(out) :: integral
5191 real(RKC) , intent(in) , contiguous :: help(:)
5192 real(RKC) , intent(out) , optional :: abserr
5193 real(RKC) , intent(in) , optional :: abstol
5194 real(RKC) , intent(in) , optional :: reltol
5195 integer(IK) , intent(out) , optional :: neval
5196 integer(IK) , intent(out) , optional :: nint
5197 character(*, SK) , intent(out) , optional :: msg
5198 logical(LK) :: failed
5199 end function
5200#endif
5201
5202#if RK1_ENABLED
5203 module function isFailedQuadQAGP_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5205 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK1
5206#endif
5207 use pm_kind, only: RKC => RK1
5208 procedure(real(RKC)) :: getFunc
5209 real(RKC) , intent(in) :: lb, ub
5210 real(RKC) , intent(out) :: integral
5211 real(RKC) , intent(in) , contiguous :: help(:)
5212 real(RKC) , intent(out) , optional :: abserr
5213 real(RKC) , intent(in) , optional :: abstol
5214 real(RKC) , intent(in) , optional :: reltol
5215 integer(IK) , intent(out) , optional :: neval
5216 integer(IK) , intent(out) , optional :: nint
5217 character(*, SK) , intent(out) , optional :: msg
5218 logical(LK) :: failed
5219 end function
5220#endif
5221
5222 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5223
5224#if RK5_ENABLED
5225 module function isFailedQuadQAWC_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5227 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK5
5228#endif
5229 use pm_kind, only: RKC => RK5
5230 procedure(real(RKC)) :: getFunc
5231 real(RKC) , intent(in) :: lb, ub
5232 real(RKC) , intent(out) :: integral
5233 type(wcauchy_type) , intent(in) :: help
5234 real(RKC) , intent(out) , optional :: abserr
5235 real(RKC) , intent(in) , optional :: abstol
5236 real(RKC) , intent(in) , optional :: reltol
5237 integer(IK) , intent(out) , optional :: neval
5238 integer(IK) , intent(out) , optional :: nint
5239 character(*, SK) , intent(out) , optional :: msg
5240 logical(LK) :: failed
5241 end function
5242#endif
5243
5244#if RK4_ENABLED
5245 module function isFailedQuadQAWC_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5247 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK4
5248#endif
5249 use pm_kind, only: RKC => RK4
5250 procedure(real(RKC)) :: getFunc
5251 real(RKC) , intent(in) :: lb, ub
5252 real(RKC) , intent(out) :: integral
5253 type(wcauchy_type) , intent(in) :: help
5254 real(RKC) , intent(out) , optional :: abserr
5255 real(RKC) , intent(in) , optional :: abstol
5256 real(RKC) , intent(in) , optional :: reltol
5257 integer(IK) , intent(out) , optional :: neval
5258 integer(IK) , intent(out) , optional :: nint
5259 character(*, SK) , intent(out) , optional :: msg
5260 logical(LK) :: failed
5261 end function
5262#endif
5263
5264#if RK3_ENABLED
5265 module function isFailedQuadQAWC_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5267 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK3
5268#endif
5269 use pm_kind, only: RKC => RK3
5270 procedure(real(RKC)) :: getFunc
5271 real(RKC) , intent(in) :: lb, ub
5272 real(RKC) , intent(out) :: integral
5273 type(wcauchy_type) , intent(in) :: help
5274 real(RKC) , intent(out) , optional :: abserr
5275 real(RKC) , intent(in) , optional :: abstol
5276 real(RKC) , intent(in) , optional :: reltol
5277 integer(IK) , intent(out) , optional :: neval
5278 integer(IK) , intent(out) , optional :: nint
5279 character(*, SK) , intent(out) , optional :: msg
5280 logical(LK) :: failed
5281 end function
5282#endif
5283
5284#if RK2_ENABLED
5285 module function isFailedQuadQAWC_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5287 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK2
5288#endif
5289 use pm_kind, only: RKC => RK2
5290 procedure(real(RKC)) :: getFunc
5291 real(RKC) , intent(in) :: lb, ub
5292 real(RKC) , intent(out) :: integral
5293 type(wcauchy_type) , intent(in) :: help
5294 real(RKC) , intent(out) , optional :: abserr
5295 real(RKC) , intent(in) , optional :: abstol
5296 real(RKC) , intent(in) , optional :: reltol
5297 integer(IK) , intent(out) , optional :: neval
5298 integer(IK) , intent(out) , optional :: nint
5299 character(*, SK) , intent(out) , optional :: msg
5300 logical(LK) :: failed
5301 end function
5302#endif
5303
5304#if RK1_ENABLED
5305 module function isFailedQuadQAWC_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5307 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK1
5308#endif
5309 use pm_kind, only: RKC => RK1
5310 procedure(real(RKC)) :: getFunc
5311 real(RKC) , intent(in) :: lb, ub
5312 real(RKC) , intent(out) :: integral
5313 type(wcauchy_type) , intent(in) :: help
5314 real(RKC) , intent(out) , optional :: abserr
5315 real(RKC) , intent(in) , optional :: abstol
5316 real(RKC) , intent(in) , optional :: reltol
5317 integer(IK) , intent(out) , optional :: neval
5318 integer(IK) , intent(out) , optional :: nint
5319 character(*, SK) , intent(out) , optional :: msg
5320 logical(LK) :: failed
5321 end function
5322#endif
5323
5324 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5325
5326 end interface
5327
5328!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5329
5566
5567!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5568
5569 ! QAGD_GK15
5570
5571 interface getQuadErr
5572
5573 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5574
5575#if RK5_ENABLED
5576 module function QAGD_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5578 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK5
5579#endif
5580 use pm_kind, only: RKC => RK5
5581 procedure(real(RKC)) :: getFunc
5582 real(RKC) , intent(in) :: lb
5583 real(RKC) , intent(in) :: ub
5584 real(RKC) , intent(in) :: abstol
5585 real(RKC) , intent(in) :: reltol
5586 type(GK15_type) , intent(in) :: qrule
5587 real(RKC) , intent(out) :: integral, abserr
5588 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5589 integer(IK) , intent(out) , contiguous :: sindex(:)
5590 integer(IK) , intent(out) :: neval
5591 integer(IK) , intent(out) :: nint
5592 integer(IK) :: err
5593 end function
5594#endif
5595
5596#if RK4_ENABLED
5597 module function QAGD_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5599 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK4
5600#endif
5601 use pm_kind, only: RKC => RK4
5602 procedure(real(RKC)) :: getFunc
5603 real(RKC) , intent(in) :: lb
5604 real(RKC) , intent(in) :: ub
5605 real(RKC) , intent(in) :: abstol
5606 real(RKC) , intent(in) :: reltol
5607 type(GK15_type) , intent(in) :: qrule
5608 real(RKC) , intent(out) :: integral, abserr
5609 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5610 integer(IK) , intent(out) , contiguous :: sindex(:)
5611 integer(IK) , intent(out) :: neval
5612 integer(IK) , intent(out) :: nint
5613 integer(IK) :: err
5614 end function
5615#endif
5616
5617#if RK3_ENABLED
5618 module function QAGD_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5620 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK3
5621#endif
5622 use pm_kind, only: RKC => RK3
5623 procedure(real(RKC)) :: getFunc
5624 real(RKC) , intent(in) :: lb
5625 real(RKC) , intent(in) :: ub
5626 real(RKC) , intent(in) :: abstol
5627 real(RKC) , intent(in) :: reltol
5628 type(GK15_type) , intent(in) :: qrule
5629 real(RKC) , intent(out) :: integral, abserr
5630 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5631 integer(IK) , intent(out) , contiguous :: sindex(:)
5632 integer(IK) , intent(out) :: neval
5633 integer(IK) , intent(out) :: nint
5634 integer(IK) :: err
5635 end function
5636#endif
5637
5638#if RK2_ENABLED
5639 module function QAGD_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5641 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK2
5642#endif
5643 use pm_kind, only: RKC => RK2
5644 procedure(real(RKC)) :: getFunc
5645 real(RKC) , intent(in) :: lb
5646 real(RKC) , intent(in) :: ub
5647 real(RKC) , intent(in) :: abstol
5648 real(RKC) , intent(in) :: reltol
5649 type(GK15_type) , intent(in) :: qrule
5650 real(RKC) , intent(out) :: integral, abserr
5651 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5652 integer(IK) , intent(out) , contiguous :: sindex(:)
5653 integer(IK) , intent(out) :: neval
5654 integer(IK) , intent(out) :: nint
5655 integer(IK) :: err
5656 end function
5657#endif
5658
5659#if RK1_ENABLED
5660 module function QAGD_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5661#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5662 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK1
5663#endif
5664 use pm_kind, only: RKC => RK1
5665 procedure(real(RKC)) :: getFunc
5666 real(RKC) , intent(in) :: lb
5667 real(RKC) , intent(in) :: ub
5668 real(RKC) , intent(in) :: abstol
5669 real(RKC) , intent(in) :: reltol
5670 type(GK15_type) , intent(in) :: qrule
5671 real(RKC) , intent(out) :: integral, abserr
5672 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5673 integer(IK) , intent(out) , contiguous :: sindex(:)
5674 integer(IK) , intent(out) :: neval
5675 integer(IK) , intent(out) :: nint
5676 integer(IK) :: err
5677 end function
5678#endif
5679
5680 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5681
5682#if RK5_ENABLED
5683 module function QAGD_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5685 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK5
5686#endif
5687 use pm_kind, only: RKC => RK5
5688 procedure(real(RKC)) :: getFunc
5689 real(RKC) , intent(in) :: lb
5690 type(pinf_type) , intent(in) :: ub
5691 real(RKC) , intent(in) :: abstol
5692 real(RKC) , intent(in) :: reltol
5693 type(GK15_type) , intent(in) :: qrule
5694 real(RKC) , intent(out) :: integral, abserr
5695 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5696 integer(IK) , intent(out) , contiguous :: sindex(:)
5697 integer(IK) , intent(out) :: neval
5698 integer(IK) , intent(out) :: nint
5699 integer(IK) :: err
5700 end function
5701#endif
5702
5703#if RK4_ENABLED
5704 module function QAGD_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5706 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK4
5707#endif
5708 use pm_kind, only: RKC => RK4
5709 procedure(real(RKC)) :: getFunc
5710 real(RKC) , intent(in) :: lb
5711 type(pinf_type) , intent(in) :: ub
5712 real(RKC) , intent(in) :: abstol
5713 real(RKC) , intent(in) :: reltol
5714 type(GK15_type) , intent(in) :: qrule
5715 real(RKC) , intent(out) :: integral, abserr
5716 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5717 integer(IK) , intent(out) , contiguous :: sindex(:)
5718 integer(IK) , intent(out) :: neval
5719 integer(IK) , intent(out) :: nint
5720 integer(IK) :: err
5721 end function
5722#endif
5723
5724#if RK3_ENABLED
5725 module function QAGD_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5727 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK3
5728#endif
5729 use pm_kind, only: RKC => RK3
5730 procedure(real(RKC)) :: getFunc
5731 real(RKC) , intent(in) :: lb
5732 type(pinf_type) , intent(in) :: ub
5733 real(RKC) , intent(in) :: abstol
5734 real(RKC) , intent(in) :: reltol
5735 type(GK15_type) , intent(in) :: qrule
5736 real(RKC) , intent(out) :: integral, abserr
5737 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5738 integer(IK) , intent(out) , contiguous :: sindex(:)
5739 integer(IK) , intent(out) :: neval
5740 integer(IK) , intent(out) :: nint
5741 integer(IK) :: err
5742 end function
5743#endif
5744
5745#if RK2_ENABLED
5746 module function QAGD_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5748 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK2
5749#endif
5750 use pm_kind, only: RKC => RK2
5751 procedure(real(RKC)) :: getFunc
5752 real(RKC) , intent(in) :: lb
5753 type(pinf_type) , intent(in) :: ub
5754 real(RKC) , intent(in) :: abstol
5755 real(RKC) , intent(in) :: reltol
5756 type(GK15_type) , intent(in) :: qrule
5757 real(RKC) , intent(out) :: integral, abserr
5758 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5759 integer(IK) , intent(out) , contiguous :: sindex(:)
5760 integer(IK) , intent(out) :: neval
5761 integer(IK) , intent(out) :: nint
5762 integer(IK) :: err
5763 end function
5764#endif
5765
5766#if RK1_ENABLED
5767 module function QAGD_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5769 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK1
5770#endif
5771 use pm_kind, only: RKC => RK1
5772 procedure(real(RKC)) :: getFunc
5773 real(RKC) , intent(in) :: lb
5774 type(pinf_type) , intent(in) :: ub
5775 real(RKC) , intent(in) :: abstol
5776 real(RKC) , intent(in) :: reltol
5777 type(GK15_type) , intent(in) :: qrule
5778 real(RKC) , intent(out) :: integral, abserr
5779 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5780 integer(IK) , intent(out) , contiguous :: sindex(:)
5781 integer(IK) , intent(out) :: neval
5782 integer(IK) , intent(out) :: nint
5783 integer(IK) :: err
5784 end function
5785#endif
5786
5787 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5788
5789#if RK5_ENABLED
5790 module function QAGD_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5792 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK5
5793#endif
5794 use pm_kind, only: RKC => RK5
5795 procedure(real(RKC)) :: getFunc
5796 type(ninf_type) , intent(in) :: lb
5797 real(RKC) , intent(in) :: ub
5798 real(RKC) , intent(in) :: abstol
5799 real(RKC) , intent(in) :: reltol
5800 type(GK15_type) , intent(in) :: qrule
5801 real(RKC) , intent(out) :: integral, abserr
5802 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5803 integer(IK) , intent(out) , contiguous :: sindex(:)
5804 integer(IK) , intent(out) :: neval
5805 integer(IK) , intent(out) :: nint
5806 integer(IK) :: err
5807 end function
5808#endif
5809
5810#if RK4_ENABLED
5811 module function QAGD_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5812#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5813 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK4
5814#endif
5815 use pm_kind, only: RKC => RK4
5816 procedure(real(RKC)) :: getFunc
5817 type(ninf_type) , intent(in) :: lb
5818 real(RKC) , intent(in) :: ub
5819 real(RKC) , intent(in) :: abstol
5820 real(RKC) , intent(in) :: reltol
5821 type(GK15_type) , intent(in) :: qrule
5822 real(RKC) , intent(out) :: integral, abserr
5823 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5824 integer(IK) , intent(out) , contiguous :: sindex(:)
5825 integer(IK) , intent(out) :: neval
5826 integer(IK) , intent(out) :: nint
5827 integer(IK) :: err
5828 end function
5829#endif
5830
5831#if RK3_ENABLED
5832 module function QAGD_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5834 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK3
5835#endif
5836 use pm_kind, only: RKC => RK3
5837 procedure(real(RKC)) :: getFunc
5838 type(ninf_type) , intent(in) :: lb
5839 real(RKC) , intent(in) :: ub
5840 real(RKC) , intent(in) :: abstol
5841 real(RKC) , intent(in) :: reltol
5842 type(GK15_type) , intent(in) :: qrule
5843 real(RKC) , intent(out) :: integral, abserr
5844 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5845 integer(IK) , intent(out) , contiguous :: sindex(:)
5846 integer(IK) , intent(out) :: neval
5847 integer(IK) , intent(out) :: nint
5848 integer(IK) :: err
5849 end function
5850#endif
5851
5852#if RK2_ENABLED
5853 module function QAGD_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5855 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK2
5856#endif
5857 use pm_kind, only: RKC => RK2
5858 procedure(real(RKC)) :: getFunc
5859 type(ninf_type) , intent(in) :: lb
5860 real(RKC) , intent(in) :: ub
5861 real(RKC) , intent(in) :: abstol
5862 real(RKC) , intent(in) :: reltol
5863 type(GK15_type) , intent(in) :: qrule
5864 real(RKC) , intent(out) :: integral, abserr
5865 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5866 integer(IK) , intent(out) , contiguous :: sindex(:)
5867 integer(IK) , intent(out) :: neval
5868 integer(IK) , intent(out) :: nint
5869 integer(IK) :: err
5870 end function
5871#endif
5872
5873#if RK1_ENABLED
5874 module function QAGD_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5876 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK1
5877#endif
5878 use pm_kind, only: RKC => RK1
5879 procedure(real(RKC)) :: getFunc
5880 type(ninf_type) , intent(in) :: lb
5881 real(RKC) , intent(in) :: ub
5882 real(RKC) , intent(in) :: abstol
5883 real(RKC) , intent(in) :: reltol
5884 type(GK15_type) , intent(in) :: qrule
5885 real(RKC) , intent(out) :: integral, abserr
5886 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5887 integer(IK) , intent(out) , contiguous :: sindex(:)
5888 integer(IK) , intent(out) :: neval
5889 integer(IK) , intent(out) :: nint
5890 integer(IK) :: err
5891 end function
5892#endif
5893
5894 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5895
5896#if RK5_ENABLED
5897 module function QAGD_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5899 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK5
5900#endif
5901 use pm_kind, only: RKC => RK5
5902 procedure(real(RKC)) :: getFunc
5903 type(ninf_type) , intent(in) :: lb
5904 type(pinf_type) , intent(in) :: ub
5905 real(RKC) , intent(in) :: abstol
5906 real(RKC) , intent(in) :: reltol
5907 type(GK15_type) , intent(in) :: qrule
5908 real(RKC) , intent(out) :: integral, abserr
5909 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5910 integer(IK) , intent(out) , contiguous :: sindex(:)
5911 integer(IK) , intent(out) :: neval
5912 integer(IK) , intent(out) :: nint
5913 integer(IK) :: err
5914 end function
5915#endif
5916
5917#if RK4_ENABLED
5918 module function QAGD_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5920 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK4
5921#endif
5922 use pm_kind, only: RKC => RK4
5923 procedure(real(RKC)) :: getFunc
5924 type(ninf_type) , intent(in) :: lb
5925 type(pinf_type) , intent(in) :: ub
5926 real(RKC) , intent(in) :: abstol
5927 real(RKC) , intent(in) :: reltol
5928 type(GK15_type) , intent(in) :: qrule
5929 real(RKC) , intent(out) :: integral, abserr
5930 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5931 integer(IK) , intent(out) , contiguous :: sindex(:)
5932 integer(IK) , intent(out) :: neval
5933 integer(IK) , intent(out) :: nint
5934 integer(IK) :: err
5935 end function
5936#endif
5937
5938#if RK3_ENABLED
5939 module function QAGD_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5941 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK3
5942#endif
5943 use pm_kind, only: RKC => RK3
5944 procedure(real(RKC)) :: getFunc
5945 type(ninf_type) , intent(in) :: lb
5946 type(pinf_type) , intent(in) :: ub
5947 real(RKC) , intent(in) :: abstol
5948 real(RKC) , intent(in) :: reltol
5949 type(GK15_type) , intent(in) :: qrule
5950 real(RKC) , intent(out) :: integral, abserr
5951 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5952 integer(IK) , intent(out) , contiguous :: sindex(:)
5953 integer(IK) , intent(out) :: neval
5954 integer(IK) , intent(out) :: nint
5955 integer(IK) :: err
5956 end function
5957#endif
5958
5959#if RK2_ENABLED
5960 module function QAGD_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5962 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK2
5963#endif
5964 use pm_kind, only: RKC => RK2
5965 procedure(real(RKC)) :: getFunc
5966 type(ninf_type) , intent(in) :: lb
5967 type(pinf_type) , intent(in) :: ub
5968 real(RKC) , intent(in) :: abstol
5969 real(RKC) , intent(in) :: reltol
5970 type(GK15_type) , intent(in) :: qrule
5971 real(RKC) , intent(out) :: integral, abserr
5972 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5973 integer(IK) , intent(out) , contiguous :: sindex(:)
5974 integer(IK) , intent(out) :: neval
5975 integer(IK) , intent(out) :: nint
5976 integer(IK) :: err
5977 end function
5978#endif
5979
5980#if RK1_ENABLED
5981 module function QAGD_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5983 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK1
5984#endif
5985 use pm_kind, only: RKC => RK1
5986 procedure(real(RKC)) :: getFunc
5987 type(ninf_type) , intent(in) :: lb
5988 type(pinf_type) , intent(in) :: ub
5989 real(RKC) , intent(in) :: abstol
5990 real(RKC) , intent(in) :: reltol
5991 type(GK15_type) , intent(in) :: qrule
5992 real(RKC) , intent(out) :: integral, abserr
5993 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5994 integer(IK) , intent(out) , contiguous :: sindex(:)
5995 integer(IK) , intent(out) :: neval
5996 integer(IK) , intent(out) :: nint
5997 integer(IK) :: err
5998 end function
5999#endif
6000
6001 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6002
6003 end interface
6004
6005 ! QAGD_GK21
6006
6007 interface getQuadErr
6008
6009 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6010
6011#if RK5_ENABLED
6012 module function QAGD_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6014 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK5
6015#endif
6016 use pm_kind, only: RKC => RK5
6017 procedure(real(RKC)) :: getFunc
6018 real(RKC) , intent(in) :: lb
6019 real(RKC) , intent(in) :: ub
6020 real(RKC) , intent(in) :: abstol
6021 real(RKC) , intent(in) :: reltol
6022 type(GK21_type) , intent(in) :: qrule
6023 real(RKC) , intent(out) :: integral, abserr
6024 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6025 integer(IK) , intent(out) , contiguous :: sindex(:)
6026 integer(IK) , intent(out) :: neval
6027 integer(IK) , intent(out) :: nint
6028 integer(IK) :: err
6029 end function
6030#endif
6031
6032#if RK4_ENABLED
6033 module function QAGD_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6035 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK4
6036#endif
6037 use pm_kind, only: RKC => RK4
6038 procedure(real(RKC)) :: getFunc
6039 real(RKC) , intent(in) :: lb
6040 real(RKC) , intent(in) :: ub
6041 real(RKC) , intent(in) :: abstol
6042 real(RKC) , intent(in) :: reltol
6043 type(GK21_type) , intent(in) :: qrule
6044 real(RKC) , intent(out) :: integral, abserr
6045 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6046 integer(IK) , intent(out) , contiguous :: sindex(:)
6047 integer(IK) , intent(out) :: neval
6048 integer(IK) , intent(out) :: nint
6049 integer(IK) :: err
6050 end function
6051#endif
6052
6053#if RK3_ENABLED
6054 module function QAGD_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6056 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK3
6057#endif
6058 use pm_kind, only: RKC => RK3
6059 procedure(real(RKC)) :: getFunc
6060 real(RKC) , intent(in) :: lb
6061 real(RKC) , intent(in) :: ub
6062 real(RKC) , intent(in) :: abstol
6063 real(RKC) , intent(in) :: reltol
6064 type(GK21_type) , intent(in) :: qrule
6065 real(RKC) , intent(out) :: integral, abserr
6066 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6067 integer(IK) , intent(out) , contiguous :: sindex(:)
6068 integer(IK) , intent(out) :: neval
6069 integer(IK) , intent(out) :: nint
6070 integer(IK) :: err
6071 end function
6072#endif
6073
6074#if RK2_ENABLED
6075 module function QAGD_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6077 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK2
6078#endif
6079 use pm_kind, only: RKC => RK2
6080 procedure(real(RKC)) :: getFunc
6081 real(RKC) , intent(in) :: lb
6082 real(RKC) , intent(in) :: ub
6083 real(RKC) , intent(in) :: abstol
6084 real(RKC) , intent(in) :: reltol
6085 type(GK21_type) , intent(in) :: qrule
6086 real(RKC) , intent(out) :: integral, abserr
6087 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6088 integer(IK) , intent(out) , contiguous :: sindex(:)
6089 integer(IK) , intent(out) :: neval
6090 integer(IK) , intent(out) :: nint
6091 integer(IK) :: err
6092 end function
6093#endif
6094
6095#if RK1_ENABLED
6096 module function QAGD_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6098 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK1
6099#endif
6100 use pm_kind, only: RKC => RK1
6101 procedure(real(RKC)) :: getFunc
6102 real(RKC) , intent(in) :: lb
6103 real(RKC) , intent(in) :: ub
6104 real(RKC) , intent(in) :: abstol
6105 real(RKC) , intent(in) :: reltol
6106 type(GK21_type) , intent(in) :: qrule
6107 real(RKC) , intent(out) :: integral, abserr
6108 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6109 integer(IK) , intent(out) , contiguous :: sindex(:)
6110 integer(IK) , intent(out) :: neval
6111 integer(IK) , intent(out) :: nint
6112 integer(IK) :: err
6113 end function
6114#endif
6115
6116 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6117
6118#if RK5_ENABLED
6119 module function QAGD_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6121 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK5
6122#endif
6123 use pm_kind, only: RKC => RK5
6124 procedure(real(RKC)) :: getFunc
6125 real(RKC) , intent(in) :: lb
6126 type(pinf_type) , intent(in) :: ub
6127 real(RKC) , intent(in) :: abstol
6128 real(RKC) , intent(in) :: reltol
6129 type(GK21_type) , intent(in) :: qrule
6130 real(RKC) , intent(out) :: integral, abserr
6131 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6132 integer(IK) , intent(out) , contiguous :: sindex(:)
6133 integer(IK) , intent(out) :: neval
6134 integer(IK) , intent(out) :: nint
6135 integer(IK) :: err
6136 end function
6137#endif
6138
6139#if RK4_ENABLED
6140 module function QAGD_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6142 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK4
6143#endif
6144 use pm_kind, only: RKC => RK4
6145 procedure(real(RKC)) :: getFunc
6146 real(RKC) , intent(in) :: lb
6147 type(pinf_type) , intent(in) :: ub
6148 real(RKC) , intent(in) :: abstol
6149 real(RKC) , intent(in) :: reltol
6150 type(GK21_type) , intent(in) :: qrule
6151 real(RKC) , intent(out) :: integral, abserr
6152 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6153 integer(IK) , intent(out) , contiguous :: sindex(:)
6154 integer(IK) , intent(out) :: neval
6155 integer(IK) , intent(out) :: nint
6156 integer(IK) :: err
6157 end function
6158#endif
6159
6160#if RK3_ENABLED
6161 module function QAGD_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6163 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK3
6164#endif
6165 use pm_kind, only: RKC => RK3
6166 procedure(real(RKC)) :: getFunc
6167 real(RKC) , intent(in) :: lb
6168 type(pinf_type) , intent(in) :: ub
6169 real(RKC) , intent(in) :: abstol
6170 real(RKC) , intent(in) :: reltol
6171 type(GK21_type) , intent(in) :: qrule
6172 real(RKC) , intent(out) :: integral, abserr
6173 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6174 integer(IK) , intent(out) , contiguous :: sindex(:)
6175 integer(IK) , intent(out) :: neval
6176 integer(IK) , intent(out) :: nint
6177 integer(IK) :: err
6178 end function
6179#endif
6180
6181#if RK2_ENABLED
6182 module function QAGD_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6184 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK2
6185#endif
6186 use pm_kind, only: RKC => RK2
6187 procedure(real(RKC)) :: getFunc
6188 real(RKC) , intent(in) :: lb
6189 type(pinf_type) , intent(in) :: ub
6190 real(RKC) , intent(in) :: abstol
6191 real(RKC) , intent(in) :: reltol
6192 type(GK21_type) , intent(in) :: qrule
6193 real(RKC) , intent(out) :: integral, abserr
6194 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6195 integer(IK) , intent(out) , contiguous :: sindex(:)
6196 integer(IK) , intent(out) :: neval
6197 integer(IK) , intent(out) :: nint
6198 integer(IK) :: err
6199 end function
6200#endif
6201
6202#if RK1_ENABLED
6203 module function QAGD_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6205 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK1
6206#endif
6207 use pm_kind, only: RKC => RK1
6208 procedure(real(RKC)) :: getFunc
6209 real(RKC) , intent(in) :: lb
6210 type(pinf_type) , intent(in) :: ub
6211 real(RKC) , intent(in) :: abstol
6212 real(RKC) , intent(in) :: reltol
6213 type(GK21_type) , intent(in) :: qrule
6214 real(RKC) , intent(out) :: integral, abserr
6215 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6216 integer(IK) , intent(out) , contiguous :: sindex(:)
6217 integer(IK) , intent(out) :: neval
6218 integer(IK) , intent(out) :: nint
6219 integer(IK) :: err
6220 end function
6221#endif
6222
6223 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6224
6225#if RK5_ENABLED
6226 module function QAGD_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6228 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK5
6229#endif
6230 use pm_kind, only: RKC => RK5
6231 procedure(real(RKC)) :: getFunc
6232 type(ninf_type) , intent(in) :: lb
6233 real(RKC) , intent(in) :: ub
6234 real(RKC) , intent(in) :: abstol
6235 real(RKC) , intent(in) :: reltol
6236 type(GK21_type) , intent(in) :: qrule
6237 real(RKC) , intent(out) :: integral, abserr
6238 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6239 integer(IK) , intent(out) , contiguous :: sindex(:)
6240 integer(IK) , intent(out) :: neval
6241 integer(IK) , intent(out) :: nint
6242 integer(IK) :: err
6243 end function
6244#endif
6245
6246#if RK4_ENABLED
6247 module function QAGD_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6249 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK4
6250#endif
6251 use pm_kind, only: RKC => RK4
6252 procedure(real(RKC)) :: getFunc
6253 type(ninf_type) , intent(in) :: lb
6254 real(RKC) , intent(in) :: ub
6255 real(RKC) , intent(in) :: abstol
6256 real(RKC) , intent(in) :: reltol
6257 type(GK21_type) , intent(in) :: qrule
6258 real(RKC) , intent(out) :: integral, abserr
6259 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6260 integer(IK) , intent(out) , contiguous :: sindex(:)
6261 integer(IK) , intent(out) :: neval
6262 integer(IK) , intent(out) :: nint
6263 integer(IK) :: err
6264 end function
6265#endif
6266
6267#if RK3_ENABLED
6268 module function QAGD_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6270 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK3
6271#endif
6272 use pm_kind, only: RKC => RK3
6273 procedure(real(RKC)) :: getFunc
6274 type(ninf_type) , intent(in) :: lb
6275 real(RKC) , intent(in) :: ub
6276 real(RKC) , intent(in) :: abstol
6277 real(RKC) , intent(in) :: reltol
6278 type(GK21_type) , intent(in) :: qrule
6279 real(RKC) , intent(out) :: integral, abserr
6280 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6281 integer(IK) , intent(out) , contiguous :: sindex(:)
6282 integer(IK) , intent(out) :: neval
6283 integer(IK) , intent(out) :: nint
6284 integer(IK) :: err
6285 end function
6286#endif
6287
6288#if RK2_ENABLED
6289 module function QAGD_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6291 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK2
6292#endif
6293 use pm_kind, only: RKC => RK2
6294 procedure(real(RKC)) :: getFunc
6295 type(ninf_type) , intent(in) :: lb
6296 real(RKC) , intent(in) :: ub
6297 real(RKC) , intent(in) :: abstol
6298 real(RKC) , intent(in) :: reltol
6299 type(GK21_type) , intent(in) :: qrule
6300 real(RKC) , intent(out) :: integral, abserr
6301 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6302 integer(IK) , intent(out) , contiguous :: sindex(:)
6303 integer(IK) , intent(out) :: neval
6304 integer(IK) , intent(out) :: nint
6305 integer(IK) :: err
6306 end function
6307#endif
6308
6309#if RK1_ENABLED
6310 module function QAGD_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6312 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK1
6313#endif
6314 use pm_kind, only: RKC => RK1
6315 procedure(real(RKC)) :: getFunc
6316 type(ninf_type) , intent(in) :: lb
6317 real(RKC) , intent(in) :: ub
6318 real(RKC) , intent(in) :: abstol
6319 real(RKC) , intent(in) :: reltol
6320 type(GK21_type) , intent(in) :: qrule
6321 real(RKC) , intent(out) :: integral, abserr
6322 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6323 integer(IK) , intent(out) , contiguous :: sindex(:)
6324 integer(IK) , intent(out) :: neval
6325 integer(IK) , intent(out) :: nint
6326 integer(IK) :: err
6327 end function
6328#endif
6329
6330 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6331
6332#if RK5_ENABLED
6333 module function QAGD_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6335 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK5
6336#endif
6337 use pm_kind, only: RKC => RK5
6338 procedure(real(RKC)) :: getFunc
6339 type(ninf_type) , intent(in) :: lb
6340 type(pinf_type) , intent(in) :: ub
6341 real(RKC) , intent(in) :: abstol
6342 real(RKC) , intent(in) :: reltol
6343 type(GK21_type) , intent(in) :: qrule
6344 real(RKC) , intent(out) :: integral, abserr
6345 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6346 integer(IK) , intent(out) , contiguous :: sindex(:)
6347 integer(IK) , intent(out) :: neval
6348 integer(IK) , intent(out) :: nint
6349 integer(IK) :: err
6350 end function
6351#endif
6352
6353#if RK4_ENABLED
6354 module function QAGD_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6356 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK4
6357#endif
6358 use pm_kind, only: RKC => RK4
6359 procedure(real(RKC)) :: getFunc
6360 type(ninf_type) , intent(in) :: lb
6361 type(pinf_type) , intent(in) :: ub
6362 real(RKC) , intent(in) :: abstol
6363 real(RKC) , intent(in) :: reltol
6364 type(GK21_type) , intent(in) :: qrule
6365 real(RKC) , intent(out) :: integral, abserr
6366 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6367 integer(IK) , intent(out) , contiguous :: sindex(:)
6368 integer(IK) , intent(out) :: neval
6369 integer(IK) , intent(out) :: nint
6370 integer(IK) :: err
6371 end function
6372#endif
6373
6374#if RK3_ENABLED
6375 module function QAGD_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6376#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6377 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK3
6378#endif
6379 use pm_kind, only: RKC => RK3
6380 procedure(real(RKC)) :: getFunc
6381 type(ninf_type) , intent(in) :: lb
6382 type(pinf_type) , intent(in) :: ub
6383 real(RKC) , intent(in) :: abstol
6384 real(RKC) , intent(in) :: reltol
6385 type(GK21_type) , intent(in) :: qrule
6386 real(RKC) , intent(out) :: integral, abserr
6387 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6388 integer(IK) , intent(out) , contiguous :: sindex(:)
6389 integer(IK) , intent(out) :: neval
6390 integer(IK) , intent(out) :: nint
6391 integer(IK) :: err
6392 end function
6393#endif
6394
6395#if RK2_ENABLED
6396 module function QAGD_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6398 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK2
6399#endif
6400 use pm_kind, only: RKC => RK2
6401 procedure(real(RKC)) :: getFunc
6402 type(ninf_type) , intent(in) :: lb
6403 type(pinf_type) , intent(in) :: ub
6404 real(RKC) , intent(in) :: abstol
6405 real(RKC) , intent(in) :: reltol
6406 type(GK21_type) , intent(in) :: qrule
6407 real(RKC) , intent(out) :: integral, abserr
6408 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6409 integer(IK) , intent(out) , contiguous :: sindex(:)
6410 integer(IK) , intent(out) :: neval
6411 integer(IK) , intent(out) :: nint
6412 integer(IK) :: err
6413 end function
6414#endif
6415
6416#if RK1_ENABLED
6417 module function QAGD_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6418#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6419 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK1
6420#endif
6421 use pm_kind, only: RKC => RK1
6422 procedure(real(RKC)) :: getFunc
6423 type(ninf_type) , intent(in) :: lb
6424 type(pinf_type) , intent(in) :: ub
6425 real(RKC) , intent(in) :: abstol
6426 real(RKC) , intent(in) :: reltol
6427 type(GK21_type) , intent(in) :: qrule
6428 real(RKC) , intent(out) :: integral, abserr
6429 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6430 integer(IK) , intent(out) , contiguous :: sindex(:)
6431 integer(IK) , intent(out) :: neval
6432 integer(IK) , intent(out) :: nint
6433 integer(IK) :: err
6434 end function
6435#endif
6436
6437 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6438
6439 end interface
6440
6441 ! QAGD_GK31
6442
6443 interface getQuadErr
6444
6445 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6446
6447#if RK5_ENABLED
6448 module function QAGD_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6450 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK5
6451#endif
6452 use pm_kind, only: RKC => RK5
6453 procedure(real(RKC)) :: getFunc
6454 real(RKC) , intent(in) :: lb
6455 real(RKC) , intent(in) :: ub
6456 real(RKC) , intent(in) :: abstol
6457 real(RKC) , intent(in) :: reltol
6458 type(GK31_type) , intent(in) :: qrule
6459 real(RKC) , intent(out) :: integral, abserr
6460 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6461 integer(IK) , intent(out) , contiguous :: sindex(:)
6462 integer(IK) , intent(out) :: neval
6463 integer(IK) , intent(out) :: nint
6464 integer(IK) :: err
6465 end function
6466#endif
6467
6468#if RK4_ENABLED
6469 module function QAGD_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6471 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK4
6472#endif
6473 use pm_kind, only: RKC => RK4
6474 procedure(real(RKC)) :: getFunc
6475 real(RKC) , intent(in) :: lb
6476 real(RKC) , intent(in) :: ub
6477 real(RKC) , intent(in) :: abstol
6478 real(RKC) , intent(in) :: reltol
6479 type(GK31_type) , intent(in) :: qrule
6480 real(RKC) , intent(out) :: integral, abserr
6481 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6482 integer(IK) , intent(out) , contiguous :: sindex(:)
6483 integer(IK) , intent(out) :: neval
6484 integer(IK) , intent(out) :: nint
6485 integer(IK) :: err
6486 end function
6487#endif
6488
6489#if RK3_ENABLED
6490 module function QAGD_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6492 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK3
6493#endif
6494 use pm_kind, only: RKC => RK3
6495 procedure(real(RKC)) :: getFunc
6496 real(RKC) , intent(in) :: lb
6497 real(RKC) , intent(in) :: ub
6498 real(RKC) , intent(in) :: abstol
6499 real(RKC) , intent(in) :: reltol
6500 type(GK31_type) , intent(in) :: qrule
6501 real(RKC) , intent(out) :: integral, abserr
6502 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6503 integer(IK) , intent(out) , contiguous :: sindex(:)
6504 integer(IK) , intent(out) :: neval
6505 integer(IK) , intent(out) :: nint
6506 integer(IK) :: err
6507 end function
6508#endif
6509
6510#if RK2_ENABLED
6511 module function QAGD_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6513 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK2
6514#endif
6515 use pm_kind, only: RKC => RK2
6516 procedure(real(RKC)) :: getFunc
6517 real(RKC) , intent(in) :: lb
6518 real(RKC) , intent(in) :: ub
6519 real(RKC) , intent(in) :: abstol
6520 real(RKC) , intent(in) :: reltol
6521 type(GK31_type) , intent(in) :: qrule
6522 real(RKC) , intent(out) :: integral, abserr
6523 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6524 integer(IK) , intent(out) , contiguous :: sindex(:)
6525 integer(IK) , intent(out) :: neval
6526 integer(IK) , intent(out) :: nint
6527 integer(IK) :: err
6528 end function
6529#endif
6530
6531#if RK1_ENABLED
6532 module function QAGD_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6534 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK1
6535#endif
6536 use pm_kind, only: RKC => RK1
6537 procedure(real(RKC)) :: getFunc
6538 real(RKC) , intent(in) :: lb
6539 real(RKC) , intent(in) :: ub
6540 real(RKC) , intent(in) :: abstol
6541 real(RKC) , intent(in) :: reltol
6542 type(GK31_type) , intent(in) :: qrule
6543 real(RKC) , intent(out) :: integral, abserr
6544 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6545 integer(IK) , intent(out) , contiguous :: sindex(:)
6546 integer(IK) , intent(out) :: neval
6547 integer(IK) , intent(out) :: nint
6548 integer(IK) :: err
6549 end function
6550#endif
6551
6552 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6553
6554#if RK5_ENABLED
6555 module function QAGD_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6557 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK5
6558#endif
6559 use pm_kind, only: RKC => RK5
6560 procedure(real(RKC)) :: getFunc
6561 real(RKC) , intent(in) :: lb
6562 type(pinf_type) , intent(in) :: ub
6563 real(RKC) , intent(in) :: abstol
6564 real(RKC) , intent(in) :: reltol
6565 type(GK31_type) , intent(in) :: qrule
6566 real(RKC) , intent(out) :: integral, abserr
6567 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6568 integer(IK) , intent(out) , contiguous :: sindex(:)
6569 integer(IK) , intent(out) :: neval
6570 integer(IK) , intent(out) :: nint
6571 integer(IK) :: err
6572 end function
6573#endif
6574
6575#if RK4_ENABLED
6576 module function QAGD_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6578 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK4
6579#endif
6580 use pm_kind, only: RKC => RK4
6581 procedure(real(RKC)) :: getFunc
6582 real(RKC) , intent(in) :: lb
6583 type(pinf_type) , intent(in) :: ub
6584 real(RKC) , intent(in) :: abstol
6585 real(RKC) , intent(in) :: reltol
6586 type(GK31_type) , intent(in) :: qrule
6587 real(RKC) , intent(out) :: integral, abserr
6588 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6589 integer(IK) , intent(out) , contiguous :: sindex(:)
6590 integer(IK) , intent(out) :: neval
6591 integer(IK) , intent(out) :: nint
6592 integer(IK) :: err
6593 end function
6594#endif
6595
6596#if RK3_ENABLED
6597 module function QAGD_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6599 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK3
6600#endif
6601 use pm_kind, only: RKC => RK3
6602 procedure(real(RKC)) :: getFunc
6603 real(RKC) , intent(in) :: lb
6604 type(pinf_type) , intent(in) :: ub
6605 real(RKC) , intent(in) :: abstol
6606 real(RKC) , intent(in) :: reltol
6607 type(GK31_type) , intent(in) :: qrule
6608 real(RKC) , intent(out) :: integral, abserr
6609 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6610 integer(IK) , intent(out) , contiguous :: sindex(:)
6611 integer(IK) , intent(out) :: neval
6612 integer(IK) , intent(out) :: nint
6613 integer(IK) :: err
6614 end function
6615#endif
6616
6617#if RK2_ENABLED
6618 module function QAGD_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6620 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK2
6621#endif
6622 use pm_kind, only: RKC => RK2
6623 procedure(real(RKC)) :: getFunc
6624 real(RKC) , intent(in) :: lb
6625 type(pinf_type) , intent(in) :: ub
6626 real(RKC) , intent(in) :: abstol
6627 real(RKC) , intent(in) :: reltol
6628 type(GK31_type) , intent(in) :: qrule
6629 real(RKC) , intent(out) :: integral, abserr
6630 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6631 integer(IK) , intent(out) , contiguous :: sindex(:)
6632 integer(IK) , intent(out) :: neval
6633 integer(IK) , intent(out) :: nint
6634 integer(IK) :: err
6635 end function
6636#endif
6637
6638#if RK1_ENABLED
6639 module function QAGD_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6641 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK1
6642#endif
6643 use pm_kind, only: RKC => RK1
6644 procedure(real(RKC)) :: getFunc
6645 real(RKC) , intent(in) :: lb
6646 type(pinf_type) , intent(in) :: ub
6647 real(RKC) , intent(in) :: abstol
6648 real(RKC) , intent(in) :: reltol
6649 type(GK31_type) , intent(in) :: qrule
6650 real(RKC) , intent(out) :: integral, abserr
6651 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6652 integer(IK) , intent(out) , contiguous :: sindex(:)
6653 integer(IK) , intent(out) :: neval
6654 integer(IK) , intent(out) :: nint
6655 integer(IK) :: err
6656 end function
6657#endif
6658
6659 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6660
6661#if RK5_ENABLED
6662 module function QAGD_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6664 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK5
6665#endif
6666 use pm_kind, only: RKC => RK5
6667 procedure(real(RKC)) :: getFunc
6668 type(ninf_type) , intent(in) :: lb
6669 real(RKC) , intent(in) :: ub
6670 real(RKC) , intent(in) :: abstol
6671 real(RKC) , intent(in) :: reltol
6672 type(GK31_type) , intent(in) :: qrule
6673 real(RKC) , intent(out) :: integral, abserr
6674 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6675 integer(IK) , intent(out) , contiguous :: sindex(:)
6676 integer(IK) , intent(out) :: neval
6677 integer(IK) , intent(out) :: nint
6678 integer(IK) :: err
6679 end function
6680#endif
6681
6682#if RK4_ENABLED
6683 module function QAGD_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6685 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK4
6686#endif
6687 use pm_kind, only: RKC => RK4
6688 procedure(real(RKC)) :: getFunc
6689 type(ninf_type) , intent(in) :: lb
6690 real(RKC) , intent(in) :: ub
6691 real(RKC) , intent(in) :: abstol
6692 real(RKC) , intent(in) :: reltol
6693 type(GK31_type) , intent(in) :: qrule
6694 real(RKC) , intent(out) :: integral, abserr
6695 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6696 integer(IK) , intent(out) , contiguous :: sindex(:)
6697 integer(IK) , intent(out) :: neval
6698 integer(IK) , intent(out) :: nint
6699 integer(IK) :: err
6700 end function
6701#endif
6702
6703#if RK3_ENABLED
6704 module function QAGD_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6706 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK3
6707#endif
6708 use pm_kind, only: RKC => RK3
6709 procedure(real(RKC)) :: getFunc
6710 type(ninf_type) , intent(in) :: lb
6711 real(RKC) , intent(in) :: ub
6712 real(RKC) , intent(in) :: abstol
6713 real(RKC) , intent(in) :: reltol
6714 type(GK31_type) , intent(in) :: qrule
6715 real(RKC) , intent(out) :: integral, abserr
6716 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6717 integer(IK) , intent(out) , contiguous :: sindex(:)
6718 integer(IK) , intent(out) :: neval
6719 integer(IK) , intent(out) :: nint
6720 integer(IK) :: err
6721 end function
6722#endif
6723
6724#if RK2_ENABLED
6725 module function QAGD_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6727 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK2
6728#endif
6729 use pm_kind, only: RKC => RK2
6730 procedure(real(RKC)) :: getFunc
6731 type(ninf_type) , intent(in) :: lb
6732 real(RKC) , intent(in) :: ub
6733 real(RKC) , intent(in) :: abstol
6734 real(RKC) , intent(in) :: reltol
6735 type(GK31_type) , intent(in) :: qrule
6736 real(RKC) , intent(out) :: integral, abserr
6737 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6738 integer(IK) , intent(out) , contiguous :: sindex(:)
6739 integer(IK) , intent(out) :: neval
6740 integer(IK) , intent(out) :: nint
6741 integer(IK) :: err
6742 end function
6743#endif
6744
6745#if RK1_ENABLED
6746 module function QAGD_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6748 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK1
6749#endif
6750 use pm_kind, only: RKC => RK1
6751 procedure(real(RKC)) :: getFunc
6752 type(ninf_type) , intent(in) :: lb
6753 real(RKC) , intent(in) :: ub
6754 real(RKC) , intent(in) :: abstol
6755 real(RKC) , intent(in) :: reltol
6756 type(GK31_type) , intent(in) :: qrule
6757 real(RKC) , intent(out) :: integral, abserr
6758 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6759 integer(IK) , intent(out) , contiguous :: sindex(:)
6760 integer(IK) , intent(out) :: neval
6761 integer(IK) , intent(out) :: nint
6762 integer(IK) :: err
6763 end function
6764#endif
6765
6766 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6767
6768#if RK5_ENABLED
6769 module function QAGD_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6771 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK5
6772#endif
6773 use pm_kind, only: RKC => RK5
6774 procedure(real(RKC)) :: getFunc
6775 type(ninf_type) , intent(in) :: lb
6776 type(pinf_type) , intent(in) :: ub
6777 real(RKC) , intent(in) :: abstol
6778 real(RKC) , intent(in) :: reltol
6779 type(GK31_type) , intent(in) :: qrule
6780 real(RKC) , intent(out) :: integral, abserr
6781 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6782 integer(IK) , intent(out) , contiguous :: sindex(:)
6783 integer(IK) , intent(out) :: neval
6784 integer(IK) , intent(out) :: nint
6785 integer(IK) :: err
6786 end function
6787#endif
6788
6789#if RK4_ENABLED
6790 module function QAGD_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6792 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK4
6793#endif
6794 use pm_kind, only: RKC => RK4
6795 procedure(real(RKC)) :: getFunc
6796 type(ninf_type) , intent(in) :: lb
6797 type(pinf_type) , intent(in) :: ub
6798 real(RKC) , intent(in) :: abstol
6799 real(RKC) , intent(in) :: reltol
6800 type(GK31_type) , intent(in) :: qrule
6801 real(RKC) , intent(out) :: integral, abserr
6802 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6803 integer(IK) , intent(out) , contiguous :: sindex(:)
6804 integer(IK) , intent(out) :: neval
6805 integer(IK) , intent(out) :: nint
6806 integer(IK) :: err
6807 end function
6808#endif
6809
6810#if RK3_ENABLED
6811 module function QAGD_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6812#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6813 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK3
6814#endif
6815 use pm_kind, only: RKC => RK3
6816 procedure(real(RKC)) :: getFunc
6817 type(ninf_type) , intent(in) :: lb
6818 type(pinf_type) , intent(in) :: ub
6819 real(RKC) , intent(in) :: abstol
6820 real(RKC) , intent(in) :: reltol
6821 type(GK31_type) , intent(in) :: qrule
6822 real(RKC) , intent(out) :: integral, abserr
6823 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6824 integer(IK) , intent(out) , contiguous :: sindex(:)
6825 integer(IK) , intent(out) :: neval
6826 integer(IK) , intent(out) :: nint
6827 integer(IK) :: err
6828 end function
6829#endif
6830
6831#if RK2_ENABLED
6832 module function QAGD_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6834 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK2
6835#endif
6836 use pm_kind, only: RKC => RK2
6837 procedure(real(RKC)) :: getFunc
6838 type(ninf_type) , intent(in) :: lb
6839 type(pinf_type) , intent(in) :: ub
6840 real(RKC) , intent(in) :: abstol
6841 real(RKC) , intent(in) :: reltol
6842 type(GK31_type) , intent(in) :: qrule
6843 real(RKC) , intent(out) :: integral, abserr
6844 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6845 integer(IK) , intent(out) , contiguous :: sindex(:)
6846 integer(IK) , intent(out) :: neval
6847 integer(IK) , intent(out) :: nint
6848 integer(IK) :: err
6849 end function
6850#endif
6851
6852#if RK1_ENABLED
6853 module function QAGD_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6855 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK1
6856#endif
6857 use pm_kind, only: RKC => RK1
6858 procedure(real(RKC)) :: getFunc
6859 type(ninf_type) , intent(in) :: lb
6860 type(pinf_type) , intent(in) :: ub
6861 real(RKC) , intent(in) :: abstol
6862 real(RKC) , intent(in) :: reltol
6863 type(GK31_type) , intent(in) :: qrule
6864 real(RKC) , intent(out) :: integral, abserr
6865 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6866 integer(IK) , intent(out) , contiguous :: sindex(:)
6867 integer(IK) , intent(out) :: neval
6868 integer(IK) , intent(out) :: nint
6869 integer(IK) :: err
6870 end function
6871#endif
6872
6873 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6874
6875 end interface
6876
6877 ! QAGD_GK41
6878
6879 interface getQuadErr
6880
6881 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6882
6883#if RK5_ENABLED
6884 module function QAGD_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6886 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK5
6887#endif
6888 use pm_kind, only: RKC => RK5
6889 procedure(real(RKC)) :: getFunc
6890 real(RKC) , intent(in) :: lb
6891 real(RKC) , intent(in) :: ub
6892 real(RKC) , intent(in) :: abstol
6893 real(RKC) , intent(in) :: reltol
6894 type(GK41_type) , intent(in) :: qrule
6895 real(RKC) , intent(out) :: integral, abserr
6896 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6897 integer(IK) , intent(out) , contiguous :: sindex(:)
6898 integer(IK) , intent(out) :: neval
6899 integer(IK) , intent(out) :: nint
6900 integer(IK) :: err
6901 end function
6902#endif
6903
6904#if RK4_ENABLED
6905 module function QAGD_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6906#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6907 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK4
6908#endif
6909 use pm_kind, only: RKC => RK4
6910 procedure(real(RKC)) :: getFunc
6911 real(RKC) , intent(in) :: lb
6912 real(RKC) , intent(in) :: ub
6913 real(RKC) , intent(in) :: abstol
6914 real(RKC) , intent(in) :: reltol
6915 type(GK41_type) , intent(in) :: qrule
6916 real(RKC) , intent(out) :: integral, abserr
6917 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6918 integer(IK) , intent(out) , contiguous :: sindex(:)
6919 integer(IK) , intent(out) :: neval
6920 integer(IK) , intent(out) :: nint
6921 integer(IK) :: err
6922 end function
6923#endif
6924
6925#if RK3_ENABLED
6926 module function QAGD_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6928 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK3
6929#endif
6930 use pm_kind, only: RKC => RK3
6931 procedure(real(RKC)) :: getFunc
6932 real(RKC) , intent(in) :: lb
6933 real(RKC) , intent(in) :: ub
6934 real(RKC) , intent(in) :: abstol
6935 real(RKC) , intent(in) :: reltol
6936 type(GK41_type) , intent(in) :: qrule
6937 real(RKC) , intent(out) :: integral, abserr
6938 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6939 integer(IK) , intent(out) , contiguous :: sindex(:)
6940 integer(IK) , intent(out) :: neval
6941 integer(IK) , intent(out) :: nint
6942 integer(IK) :: err
6943 end function
6944#endif
6945
6946#if RK2_ENABLED
6947 module function QAGD_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6949 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK2
6950#endif
6951 use pm_kind, only: RKC => RK2
6952 procedure(real(RKC)) :: getFunc
6953 real(RKC) , intent(in) :: lb
6954 real(RKC) , intent(in) :: ub
6955 real(RKC) , intent(in) :: abstol
6956 real(RKC) , intent(in) :: reltol
6957 type(GK41_type) , intent(in) :: qrule
6958 real(RKC) , intent(out) :: integral, abserr
6959 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6960 integer(IK) , intent(out) , contiguous :: sindex(:)
6961 integer(IK) , intent(out) :: neval
6962 integer(IK) , intent(out) :: nint
6963 integer(IK) :: err
6964 end function
6965#endif
6966
6967#if RK1_ENABLED
6968 module function QAGD_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6970 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK1
6971#endif
6972 use pm_kind, only: RKC => RK1
6973 procedure(real(RKC)) :: getFunc
6974 real(RKC) , intent(in) :: lb
6975 real(RKC) , intent(in) :: ub
6976 real(RKC) , intent(in) :: abstol
6977 real(RKC) , intent(in) :: reltol
6978 type(GK41_type) , intent(in) :: qrule
6979 real(RKC) , intent(out) :: integral, abserr
6980 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6981 integer(IK) , intent(out) , contiguous :: sindex(:)
6982 integer(IK) , intent(out) :: neval
6983 integer(IK) , intent(out) :: nint
6984 integer(IK) :: err
6985 end function
6986#endif
6987
6988 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6989
6990#if RK5_ENABLED
6991 module function QAGD_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6992#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6993 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK5
6994#endif
6995 use pm_kind, only: RKC => RK5
6996 procedure(real(RKC)) :: getFunc
6997 real(RKC) , intent(in) :: lb
6998 type(pinf_type) , intent(in) :: ub
6999 real(RKC) , intent(in) :: abstol
7000 real(RKC) , intent(in) :: reltol
7001 type(GK41_type) , intent(in) :: qrule
7002 real(RKC) , intent(out) :: integral, abserr
7003 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7004 integer(IK) , intent(out) , contiguous :: sindex(:)
7005 integer(IK) , intent(out) :: neval
7006 integer(IK) , intent(out) :: nint
7007 integer(IK) :: err
7008 end function
7009#endif
7010
7011#if RK4_ENABLED
7012 module function QAGD_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7014 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK4
7015#endif
7016 use pm_kind, only: RKC => RK4
7017 procedure(real(RKC)) :: getFunc
7018 real(RKC) , intent(in) :: lb
7019 type(pinf_type) , intent(in) :: ub
7020 real(RKC) , intent(in) :: abstol
7021 real(RKC) , intent(in) :: reltol
7022 type(GK41_type) , intent(in) :: qrule
7023 real(RKC) , intent(out) :: integral, abserr
7024 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7025 integer(IK) , intent(out) , contiguous :: sindex(:)
7026 integer(IK) , intent(out) :: neval
7027 integer(IK) , intent(out) :: nint
7028 integer(IK) :: err
7029 end function
7030#endif
7031
7032#if RK3_ENABLED
7033 module function QAGD_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7035 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK3
7036#endif
7037 use pm_kind, only: RKC => RK3
7038 procedure(real(RKC)) :: getFunc
7039 real(RKC) , intent(in) :: lb
7040 type(pinf_type) , intent(in) :: ub
7041 real(RKC) , intent(in) :: abstol
7042 real(RKC) , intent(in) :: reltol
7043 type(GK41_type) , intent(in) :: qrule
7044 real(RKC) , intent(out) :: integral, abserr
7045 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7046 integer(IK) , intent(out) , contiguous :: sindex(:)
7047 integer(IK) , intent(out) :: neval
7048 integer(IK) , intent(out) :: nint
7049 integer(IK) :: err
7050 end function
7051#endif
7052
7053#if RK2_ENABLED
7054 module function QAGD_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7056 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK2
7057#endif
7058 use pm_kind, only: RKC => RK2
7059 procedure(real(RKC)) :: getFunc
7060 real(RKC) , intent(in) :: lb
7061 type(pinf_type) , intent(in) :: ub
7062 real(RKC) , intent(in) :: abstol
7063 real(RKC) , intent(in) :: reltol
7064 type(GK41_type) , intent(in) :: qrule
7065 real(RKC) , intent(out) :: integral, abserr
7066 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7067 integer(IK) , intent(out) , contiguous :: sindex(:)
7068 integer(IK) , intent(out) :: neval
7069 integer(IK) , intent(out) :: nint
7070 integer(IK) :: err
7071 end function
7072#endif
7073
7074#if RK1_ENABLED
7075 module function QAGD_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7077 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK1
7078#endif
7079 use pm_kind, only: RKC => RK1
7080 procedure(real(RKC)) :: getFunc
7081 real(RKC) , intent(in) :: lb
7082 type(pinf_type) , intent(in) :: ub
7083 real(RKC) , intent(in) :: abstol
7084 real(RKC) , intent(in) :: reltol
7085 type(GK41_type) , intent(in) :: qrule
7086 real(RKC) , intent(out) :: integral, abserr
7087 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7088 integer(IK) , intent(out) , contiguous :: sindex(:)
7089 integer(IK) , intent(out) :: neval
7090 integer(IK) , intent(out) :: nint
7091 integer(IK) :: err
7092 end function
7093#endif
7094
7095 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7096
7097#if RK5_ENABLED
7098 module function QAGD_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7100 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK5
7101#endif
7102 use pm_kind, only: RKC => RK5
7103 procedure(real(RKC)) :: getFunc
7104 type(ninf_type) , intent(in) :: lb
7105 real(RKC) , intent(in) :: ub
7106 real(RKC) , intent(in) :: abstol
7107 real(RKC) , intent(in) :: reltol
7108 type(GK41_type) , intent(in) :: qrule
7109 real(RKC) , intent(out) :: integral, abserr
7110 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7111 integer(IK) , intent(out) , contiguous :: sindex(:)
7112 integer(IK) , intent(out) :: neval
7113 integer(IK) , intent(out) :: nint
7114 integer(IK) :: err
7115 end function
7116#endif
7117
7118#if RK4_ENABLED
7119 module function QAGD_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7121 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK4
7122#endif
7123 use pm_kind, only: RKC => RK4
7124 procedure(real(RKC)) :: getFunc
7125 type(ninf_type) , intent(in) :: lb
7126 real(RKC) , intent(in) :: ub
7127 real(RKC) , intent(in) :: abstol
7128 real(RKC) , intent(in) :: reltol
7129 type(GK41_type) , intent(in) :: qrule
7130 real(RKC) , intent(out) :: integral, abserr
7131 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7132 integer(IK) , intent(out) , contiguous :: sindex(:)
7133 integer(IK) , intent(out) :: neval
7134 integer(IK) , intent(out) :: nint
7135 integer(IK) :: err
7136 end function
7137#endif
7138
7139#if RK3_ENABLED
7140 module function QAGD_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7142 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK3
7143#endif
7144 use pm_kind, only: RKC => RK3
7145 procedure(real(RKC)) :: getFunc
7146 type(ninf_type) , intent(in) :: lb
7147 real(RKC) , intent(in) :: ub
7148 real(RKC) , intent(in) :: abstol
7149 real(RKC) , intent(in) :: reltol
7150 type(GK41_type) , intent(in) :: qrule
7151 real(RKC) , intent(out) :: integral, abserr
7152 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7153 integer(IK) , intent(out) , contiguous :: sindex(:)
7154 integer(IK) , intent(out) :: neval
7155 integer(IK) , intent(out) :: nint
7156 integer(IK) :: err
7157 end function
7158#endif
7159
7160#if RK2_ENABLED
7161 module function QAGD_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7163 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK2
7164#endif
7165 use pm_kind, only: RKC => RK2
7166 procedure(real(RKC)) :: getFunc
7167 type(ninf_type) , intent(in) :: lb
7168 real(RKC) , intent(in) :: ub
7169 real(RKC) , intent(in) :: abstol
7170 real(RKC) , intent(in) :: reltol
7171 type(GK41_type) , intent(in) :: qrule
7172 real(RKC) , intent(out) :: integral, abserr
7173 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7174 integer(IK) , intent(out) , contiguous :: sindex(:)
7175 integer(IK) , intent(out) :: neval
7176 integer(IK) , intent(out) :: nint
7177 integer(IK) :: err
7178 end function
7179#endif
7180
7181#if RK1_ENABLED
7182 module function QAGD_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7184 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK1
7185#endif
7186 use pm_kind, only: RKC => RK1
7187 procedure(real(RKC)) :: getFunc
7188 type(ninf_type) , intent(in) :: lb
7189 real(RKC) , intent(in) :: ub
7190 real(RKC) , intent(in) :: abstol
7191 real(RKC) , intent(in) :: reltol
7192 type(GK41_type) , intent(in) :: qrule
7193 real(RKC) , intent(out) :: integral, abserr
7194 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7195 integer(IK) , intent(out) , contiguous :: sindex(:)
7196 integer(IK) , intent(out) :: neval
7197 integer(IK) , intent(out) :: nint
7198 integer(IK) :: err
7199 end function
7200#endif
7201
7202 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7203
7204#if RK5_ENABLED
7205 module function QAGD_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7207 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK5
7208#endif
7209 use pm_kind, only: RKC => RK5
7210 procedure(real(RKC)) :: getFunc
7211 type(ninf_type) , intent(in) :: lb
7212 type(pinf_type) , intent(in) :: ub
7213 real(RKC) , intent(in) :: abstol
7214 real(RKC) , intent(in) :: reltol
7215 type(GK41_type) , intent(in) :: qrule
7216 real(RKC) , intent(out) :: integral, abserr
7217 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7218 integer(IK) , intent(out) , contiguous :: sindex(:)
7219 integer(IK) , intent(out) :: neval
7220 integer(IK) , intent(out) :: nint
7221 integer(IK) :: err
7222 end function
7223#endif
7224
7225#if RK4_ENABLED
7226 module function QAGD_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7228 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK4
7229#endif
7230 use pm_kind, only: RKC => RK4
7231 procedure(real(RKC)) :: getFunc
7232 type(ninf_type) , intent(in) :: lb
7233 type(pinf_type) , intent(in) :: ub
7234 real(RKC) , intent(in) :: abstol
7235 real(RKC) , intent(in) :: reltol
7236 type(GK41_type) , intent(in) :: qrule
7237 real(RKC) , intent(out) :: integral, abserr
7238 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7239 integer(IK) , intent(out) , contiguous :: sindex(:)
7240 integer(IK) , intent(out) :: neval
7241 integer(IK) , intent(out) :: nint
7242 integer(IK) :: err
7243 end function
7244#endif
7245
7246#if RK3_ENABLED
7247 module function QAGD_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7249 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK3
7250#endif
7251 use pm_kind, only: RKC => RK3
7252 procedure(real(RKC)) :: getFunc
7253 type(ninf_type) , intent(in) :: lb
7254 type(pinf_type) , intent(in) :: ub
7255 real(RKC) , intent(in) :: abstol
7256 real(RKC) , intent(in) :: reltol
7257 type(GK41_type) , intent(in) :: qrule
7258 real(RKC) , intent(out) :: integral, abserr
7259 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7260 integer(IK) , intent(out) , contiguous :: sindex(:)
7261 integer(IK) , intent(out) :: neval
7262 integer(IK) , intent(out) :: nint
7263 integer(IK) :: err
7264 end function
7265#endif
7266
7267#if RK2_ENABLED
7268 module function QAGD_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7270 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK2
7271#endif
7272 use pm_kind, only: RKC => RK2
7273 procedure(real(RKC)) :: getFunc
7274 type(ninf_type) , intent(in) :: lb
7275 type(pinf_type) , intent(in) :: ub
7276 real(RKC) , intent(in) :: abstol
7277 real(RKC) , intent(in) :: reltol
7278 type(GK41_type) , intent(in) :: qrule
7279 real(RKC) , intent(out) :: integral, abserr
7280 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7281 integer(IK) , intent(out) , contiguous :: sindex(:)
7282 integer(IK) , intent(out) :: neval
7283 integer(IK) , intent(out) :: nint
7284 integer(IK) :: err
7285 end function
7286#endif
7287
7288#if RK1_ENABLED
7289 module function QAGD_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7291 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK1
7292#endif
7293 use pm_kind, only: RKC => RK1
7294 procedure(real(RKC)) :: getFunc
7295 type(ninf_type) , intent(in) :: lb
7296 type(pinf_type) , intent(in) :: ub
7297 real(RKC) , intent(in) :: abstol
7298 real(RKC) , intent(in) :: reltol
7299 type(GK41_type) , intent(in) :: qrule
7300 real(RKC) , intent(out) :: integral, abserr
7301 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7302 integer(IK) , intent(out) , contiguous :: sindex(:)
7303 integer(IK) , intent(out) :: neval
7304 integer(IK) , intent(out) :: nint
7305 integer(IK) :: err
7306 end function
7307#endif
7308
7309 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7310
7311 end interface
7312
7313 ! QAGD_GK51
7314
7315 interface getQuadErr
7316
7317 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7318
7319#if RK5_ENABLED
7320 module function QAGD_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7322 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK5
7323#endif
7324 use pm_kind, only: RKC => RK5
7325 procedure(real(RKC)) :: getFunc
7326 real(RKC) , intent(in) :: lb
7327 real(RKC) , intent(in) :: ub
7328 real(RKC) , intent(in) :: abstol
7329 real(RKC) , intent(in) :: reltol
7330 type(GK51_type) , intent(in) :: qrule
7331 real(RKC) , intent(out) :: integral, abserr
7332 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7333 integer(IK) , intent(out) , contiguous :: sindex(:)
7334 integer(IK) , intent(out) :: neval
7335 integer(IK) , intent(out) :: nint
7336 integer(IK) :: err
7337 end function
7338#endif
7339
7340#if RK4_ENABLED
7341 module function QAGD_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7343 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK4
7344#endif
7345 use pm_kind, only: RKC => RK4
7346 procedure(real(RKC)) :: getFunc
7347 real(RKC) , intent(in) :: lb
7348 real(RKC) , intent(in) :: ub
7349 real(RKC) , intent(in) :: abstol
7350 real(RKC) , intent(in) :: reltol
7351 type(GK51_type) , intent(in) :: qrule
7352 real(RKC) , intent(out) :: integral, abserr
7353 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7354 integer(IK) , intent(out) , contiguous :: sindex(:)
7355 integer(IK) , intent(out) :: neval
7356 integer(IK) , intent(out) :: nint
7357 integer(IK) :: err
7358 end function
7359#endif
7360
7361#if RK3_ENABLED
7362 module function QAGD_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7364 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK3
7365#endif
7366 use pm_kind, only: RKC => RK3
7367 procedure(real(RKC)) :: getFunc
7368 real(RKC) , intent(in) :: lb
7369 real(RKC) , intent(in) :: ub
7370 real(RKC) , intent(in) :: abstol
7371 real(RKC) , intent(in) :: reltol
7372 type(GK51_type) , intent(in) :: qrule
7373 real(RKC) , intent(out) :: integral, abserr
7374 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7375 integer(IK) , intent(out) , contiguous :: sindex(:)
7376 integer(IK) , intent(out) :: neval
7377 integer(IK) , intent(out) :: nint
7378 integer(IK) :: err
7379 end function
7380#endif
7381
7382#if RK2_ENABLED
7383 module function QAGD_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7385 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK2
7386#endif
7387 use pm_kind, only: RKC => RK2
7388 procedure(real(RKC)) :: getFunc
7389 real(RKC) , intent(in) :: lb
7390 real(RKC) , intent(in) :: ub
7391 real(RKC) , intent(in) :: abstol
7392 real(RKC) , intent(in) :: reltol
7393 type(GK51_type) , intent(in) :: qrule
7394 real(RKC) , intent(out) :: integral, abserr
7395 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7396 integer(IK) , intent(out) , contiguous :: sindex(:)
7397 integer(IK) , intent(out) :: neval
7398 integer(IK) , intent(out) :: nint
7399 integer(IK) :: err
7400 end function
7401#endif
7402
7403#if RK1_ENABLED
7404 module function QAGD_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7406 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK1
7407#endif
7408 use pm_kind, only: RKC => RK1
7409 procedure(real(RKC)) :: getFunc
7410 real(RKC) , intent(in) :: lb
7411 real(RKC) , intent(in) :: ub
7412 real(RKC) , intent(in) :: abstol
7413 real(RKC) , intent(in) :: reltol
7414 type(GK51_type) , intent(in) :: qrule
7415 real(RKC) , intent(out) :: integral, abserr
7416 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7417 integer(IK) , intent(out) , contiguous :: sindex(:)
7418 integer(IK) , intent(out) :: neval
7419 integer(IK) , intent(out) :: nint
7420 integer(IK) :: err
7421 end function
7422#endif
7423
7424 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7425
7426#if RK5_ENABLED
7427 module function QAGD_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7429 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK5
7430#endif
7431 use pm_kind, only: RKC => RK5
7432 procedure(real(RKC)) :: getFunc
7433 real(RKC) , intent(in) :: lb
7434 type(pinf_type) , intent(in) :: ub
7435 real(RKC) , intent(in) :: abstol
7436 real(RKC) , intent(in) :: reltol
7437 type(GK51_type) , intent(in) :: qrule
7438 real(RKC) , intent(out) :: integral, abserr
7439 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7440 integer(IK) , intent(out) , contiguous :: sindex(:)
7441 integer(IK) , intent(out) :: neval
7442 integer(IK) , intent(out) :: nint
7443 integer(IK) :: err
7444 end function
7445#endif
7446
7447#if RK4_ENABLED
7448 module function QAGD_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7450 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK4
7451#endif
7452 use pm_kind, only: RKC => RK4
7453 procedure(real(RKC)) :: getFunc
7454 real(RKC) , intent(in) :: lb
7455 type(pinf_type) , intent(in) :: ub
7456 real(RKC) , intent(in) :: abstol
7457 real(RKC) , intent(in) :: reltol
7458 type(GK51_type) , intent(in) :: qrule
7459 real(RKC) , intent(out) :: integral, abserr
7460 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7461 integer(IK) , intent(out) , contiguous :: sindex(:)
7462 integer(IK) , intent(out) :: neval
7463 integer(IK) , intent(out) :: nint
7464 integer(IK) :: err
7465 end function
7466#endif
7467
7468#if RK3_ENABLED
7469 module function QAGD_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7471 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK3
7472#endif
7473 use pm_kind, only: RKC => RK3
7474 procedure(real(RKC)) :: getFunc
7475 real(RKC) , intent(in) :: lb
7476 type(pinf_type) , intent(in) :: ub
7477 real(RKC) , intent(in) :: abstol
7478 real(RKC) , intent(in) :: reltol
7479 type(GK51_type) , intent(in) :: qrule
7480 real(RKC) , intent(out) :: integral, abserr
7481 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7482 integer(IK) , intent(out) , contiguous :: sindex(:)
7483 integer(IK) , intent(out) :: neval
7484 integer(IK) , intent(out) :: nint
7485 integer(IK) :: err
7486 end function
7487#endif
7488
7489#if RK2_ENABLED
7490 module function QAGD_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7492 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK2
7493#endif
7494 use pm_kind, only: RKC => RK2
7495 procedure(real(RKC)) :: getFunc
7496 real(RKC) , intent(in) :: lb
7497 type(pinf_type) , intent(in) :: ub
7498 real(RKC) , intent(in) :: abstol
7499 real(RKC) , intent(in) :: reltol
7500 type(GK51_type) , intent(in) :: qrule
7501 real(RKC) , intent(out) :: integral, abserr
7502 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7503 integer(IK) , intent(out) , contiguous :: sindex(:)
7504 integer(IK) , intent(out) :: neval
7505 integer(IK) , intent(out) :: nint
7506 integer(IK) :: err
7507 end function
7508#endif
7509
7510#if RK1_ENABLED
7511 module function QAGD_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7513 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK1
7514#endif
7515 use pm_kind, only: RKC => RK1
7516 procedure(real(RKC)) :: getFunc
7517 real(RKC) , intent(in) :: lb
7518 type(pinf_type) , intent(in) :: ub
7519 real(RKC) , intent(in) :: abstol
7520 real(RKC) , intent(in) :: reltol
7521 type(GK51_type) , intent(in) :: qrule
7522 real(RKC) , intent(out) :: integral, abserr
7523 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7524 integer(IK) , intent(out) , contiguous :: sindex(:)
7525 integer(IK) , intent(out) :: neval
7526 integer(IK) , intent(out) :: nint
7527 integer(IK) :: err
7528 end function
7529#endif
7530
7531 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7532
7533#if RK5_ENABLED
7534 module function QAGD_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7536 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK5
7537#endif
7538 use pm_kind, only: RKC => RK5
7539 procedure(real(RKC)) :: getFunc
7540 type(ninf_type) , intent(in) :: lb
7541 real(RKC) , intent(in) :: ub
7542 real(RKC) , intent(in) :: abstol
7543 real(RKC) , intent(in) :: reltol
7544 type(GK51_type) , intent(in) :: qrule
7545 real(RKC) , intent(out) :: integral, abserr
7546 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7547 integer(IK) , intent(out) , contiguous :: sindex(:)
7548 integer(IK) , intent(out) :: neval
7549 integer(IK) , intent(out) :: nint
7550 integer(IK) :: err
7551 end function
7552#endif
7553
7554#if RK4_ENABLED
7555 module function QAGD_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7557 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK4
7558#endif
7559 use pm_kind, only: RKC => RK4
7560 procedure(real(RKC)) :: getFunc
7561 type(ninf_type) , intent(in) :: lb
7562 real(RKC) , intent(in) :: ub
7563 real(RKC) , intent(in) :: abstol
7564 real(RKC) , intent(in) :: reltol
7565 type(GK51_type) , intent(in) :: qrule
7566 real(RKC) , intent(out) :: integral, abserr
7567 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7568 integer(IK) , intent(out) , contiguous :: sindex(:)
7569 integer(IK) , intent(out) :: neval
7570 integer(IK) , intent(out) :: nint
7571 integer(IK) :: err
7572 end function
7573#endif
7574
7575#if RK3_ENABLED
7576 module function QAGD_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7578 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK3
7579#endif
7580 use pm_kind, only: RKC => RK3
7581 procedure(real(RKC)) :: getFunc
7582 type(ninf_type) , intent(in) :: lb
7583 real(RKC) , intent(in) :: ub
7584 real(RKC) , intent(in) :: abstol
7585 real(RKC) , intent(in) :: reltol
7586 type(GK51_type) , intent(in) :: qrule
7587 real(RKC) , intent(out) :: integral, abserr
7588 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7589 integer(IK) , intent(out) , contiguous :: sindex(:)
7590 integer(IK) , intent(out) :: neval
7591 integer(IK) , intent(out) :: nint
7592 integer(IK) :: err
7593 end function
7594#endif
7595
7596#if RK2_ENABLED
7597 module function QAGD_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7599 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK2
7600#endif
7601 use pm_kind, only: RKC => RK2
7602 procedure(real(RKC)) :: getFunc
7603 type(ninf_type) , intent(in) :: lb
7604 real(RKC) , intent(in) :: ub
7605 real(RKC) , intent(in) :: abstol
7606 real(RKC) , intent(in) :: reltol
7607 type(GK51_type) , intent(in) :: qrule
7608 real(RKC) , intent(out) :: integral, abserr
7609 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7610 integer(IK) , intent(out) , contiguous :: sindex(:)
7611 integer(IK) , intent(out) :: neval
7612 integer(IK) , intent(out) :: nint
7613 integer(IK) :: err
7614 end function
7615#endif
7616
7617#if RK1_ENABLED
7618 module function QAGD_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7620 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK1
7621#endif
7622 use pm_kind, only: RKC => RK1
7623 procedure(real(RKC)) :: getFunc
7624 type(ninf_type) , intent(in) :: lb
7625 real(RKC) , intent(in) :: ub
7626 real(RKC) , intent(in) :: abstol
7627 real(RKC) , intent(in) :: reltol
7628 type(GK51_type) , intent(in) :: qrule
7629 real(RKC) , intent(out) :: integral, abserr
7630 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7631 integer(IK) , intent(out) , contiguous :: sindex(:)
7632 integer(IK) , intent(out) :: neval
7633 integer(IK) , intent(out) :: nint
7634 integer(IK) :: err
7635 end function
7636#endif
7637
7638 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7639
7640#if RK5_ENABLED
7641 module function QAGD_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7643 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK5
7644#endif
7645 use pm_kind, only: RKC => RK5
7646 procedure(real(RKC)) :: getFunc
7647 type(ninf_type) , intent(in) :: lb
7648 type(pinf_type) , intent(in) :: ub
7649 real(RKC) , intent(in) :: abstol
7650 real(RKC) , intent(in) :: reltol
7651 type(GK51_type) , intent(in) :: qrule
7652 real(RKC) , intent(out) :: integral, abserr
7653 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7654 integer(IK) , intent(out) , contiguous :: sindex(:)
7655 integer(IK) , intent(out) :: neval
7656 integer(IK) , intent(out) :: nint
7657 integer(IK) :: err
7658 end function
7659#endif
7660
7661#if RK4_ENABLED
7662 module function QAGD_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7664 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK4
7665#endif
7666 use pm_kind, only: RKC => RK4
7667 procedure(real(RKC)) :: getFunc
7668 type(ninf_type) , intent(in) :: lb
7669 type(pinf_type) , intent(in) :: ub
7670 real(RKC) , intent(in) :: abstol
7671 real(RKC) , intent(in) :: reltol
7672 type(GK51_type) , intent(in) :: qrule
7673 real(RKC) , intent(out) :: integral, abserr
7674 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7675 integer(IK) , intent(out) , contiguous :: sindex(:)
7676 integer(IK) , intent(out) :: neval
7677 integer(IK) , intent(out) :: nint
7678 integer(IK) :: err
7679 end function
7680#endif
7681
7682#if RK3_ENABLED
7683 module function QAGD_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7685 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK3
7686#endif
7687 use pm_kind, only: RKC => RK3
7688 procedure(real(RKC)) :: getFunc
7689 type(ninf_type) , intent(in) :: lb
7690 type(pinf_type) , intent(in) :: ub
7691 real(RKC) , intent(in) :: abstol
7692 real(RKC) , intent(in) :: reltol
7693 type(GK51_type) , intent(in) :: qrule
7694 real(RKC) , intent(out) :: integral, abserr
7695 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7696 integer(IK) , intent(out) , contiguous :: sindex(:)
7697 integer(IK) , intent(out) :: neval
7698 integer(IK) , intent(out) :: nint
7699 integer(IK) :: err
7700 end function
7701#endif
7702
7703#if RK2_ENABLED
7704 module function QAGD_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7706 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK2
7707#endif
7708 use pm_kind, only: RKC => RK2
7709 procedure(real(RKC)) :: getFunc
7710 type(ninf_type) , intent(in) :: lb
7711 type(pinf_type) , intent(in) :: ub
7712 real(RKC) , intent(in) :: abstol
7713 real(RKC) , intent(in) :: reltol
7714 type(GK51_type) , intent(in) :: qrule
7715 real(RKC) , intent(out) :: integral, abserr
7716 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7717 integer(IK) , intent(out) , contiguous :: sindex(:)
7718 integer(IK) , intent(out) :: neval
7719 integer(IK) , intent(out) :: nint
7720 integer(IK) :: err
7721 end function
7722#endif
7723
7724#if RK1_ENABLED
7725 module function QAGD_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7727 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK1
7728#endif
7729 use pm_kind, only: RKC => RK1
7730 procedure(real(RKC)) :: getFunc
7731 type(ninf_type) , intent(in) :: lb
7732 type(pinf_type) , intent(in) :: ub
7733 real(RKC) , intent(in) :: abstol
7734 real(RKC) , intent(in) :: reltol
7735 type(GK51_type) , intent(in) :: qrule
7736 real(RKC) , intent(out) :: integral, abserr
7737 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7738 integer(IK) , intent(out) , contiguous :: sindex(:)
7739 integer(IK) , intent(out) :: neval
7740 integer(IK) , intent(out) :: nint
7741 integer(IK) :: err
7742 end function
7743#endif
7744
7745 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7746
7747 end interface
7748
7749 ! QAGD_GK61
7750
7751 interface getQuadErr
7752
7753 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7754
7755#if RK5_ENABLED
7756 module function QAGD_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7758 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK5
7759#endif
7760 use pm_kind, only: RKC => RK5
7761 procedure(real(RKC)) :: getFunc
7762 real(RKC) , intent(in) :: lb
7763 real(RKC) , intent(in) :: ub
7764 real(RKC) , intent(in) :: abstol
7765 real(RKC) , intent(in) :: reltol
7766 type(GK61_type) , intent(in) :: qrule
7767 real(RKC) , intent(out) :: integral, abserr
7768 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7769 integer(IK) , intent(out) , contiguous :: sindex(:)
7770 integer(IK) , intent(out) :: neval
7771 integer(IK) , intent(out) :: nint
7772 integer(IK) :: err
7773 end function
7774#endif
7775
7776#if RK4_ENABLED
7777 module function QAGD_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7779 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK4
7780#endif
7781 use pm_kind, only: RKC => RK4
7782 procedure(real(RKC)) :: getFunc
7783 real(RKC) , intent(in) :: lb
7784 real(RKC) , intent(in) :: ub
7785 real(RKC) , intent(in) :: abstol
7786 real(RKC) , intent(in) :: reltol
7787 type(GK61_type) , intent(in) :: qrule
7788 real(RKC) , intent(out) :: integral, abserr
7789 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7790 integer(IK) , intent(out) , contiguous :: sindex(:)
7791 integer(IK) , intent(out) :: neval
7792 integer(IK) , intent(out) :: nint
7793 integer(IK) :: err
7794 end function
7795#endif
7796
7797#if RK3_ENABLED
7798 module function QAGD_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7799#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7800 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK3
7801#endif
7802 use pm_kind, only: RKC => RK3
7803 procedure(real(RKC)) :: getFunc
7804 real(RKC) , intent(in) :: lb
7805 real(RKC) , intent(in) :: ub
7806 real(RKC) , intent(in) :: abstol
7807 real(RKC) , intent(in) :: reltol
7808 type(GK61_type) , intent(in) :: qrule
7809 real(RKC) , intent(out) :: integral, abserr
7810 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7811 integer(IK) , intent(out) , contiguous :: sindex(:)
7812 integer(IK) , intent(out) :: neval
7813 integer(IK) , intent(out) :: nint
7814 integer(IK) :: err
7815 end function
7816#endif
7817
7818#if RK2_ENABLED
7819 module function QAGD_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7821 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK2
7822#endif
7823 use pm_kind, only: RKC => RK2
7824 procedure(real(RKC)) :: getFunc
7825 real(RKC) , intent(in) :: lb
7826 real(RKC) , intent(in) :: ub
7827 real(RKC) , intent(in) :: abstol
7828 real(RKC) , intent(in) :: reltol
7829 type(GK61_type) , intent(in) :: qrule
7830 real(RKC) , intent(out) :: integral, abserr
7831 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7832 integer(IK) , intent(out) , contiguous :: sindex(:)
7833 integer(IK) , intent(out) :: neval
7834 integer(IK) , intent(out) :: nint
7835 integer(IK) :: err
7836 end function
7837#endif
7838
7839#if RK1_ENABLED
7840 module function QAGD_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7842 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK1
7843#endif
7844 use pm_kind, only: RKC => RK1
7845 procedure(real(RKC)) :: getFunc
7846 real(RKC) , intent(in) :: lb
7847 real(RKC) , intent(in) :: ub
7848 real(RKC) , intent(in) :: abstol
7849 real(RKC) , intent(in) :: reltol
7850 type(GK61_type) , intent(in) :: qrule
7851 real(RKC) , intent(out) :: integral, abserr
7852 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7853 integer(IK) , intent(out) , contiguous :: sindex(:)
7854 integer(IK) , intent(out) :: neval
7855 integer(IK) , intent(out) :: nint
7856 integer(IK) :: err
7857 end function
7858#endif
7859
7860 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7861
7862#if RK5_ENABLED
7863 module function QAGD_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7864#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7865 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK5
7866#endif
7867 use pm_kind, only: RKC => RK5
7868 procedure(real(RKC)) :: getFunc
7869 real(RKC) , intent(in) :: lb
7870 type(pinf_type) , intent(in) :: ub
7871 real(RKC) , intent(in) :: abstol
7872 real(RKC) , intent(in) :: reltol
7873 type(GK61_type) , intent(in) :: qrule
7874 real(RKC) , intent(out) :: integral, abserr
7875 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7876 integer(IK) , intent(out) , contiguous :: sindex(:)
7877 integer(IK) , intent(out) :: neval
7878 integer(IK) , intent(out) :: nint
7879 integer(IK) :: err
7880 end function
7881#endif
7882
7883#if RK4_ENABLED
7884 module function QAGD_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7886 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK4
7887#endif
7888 use pm_kind, only: RKC => RK4
7889 procedure(real(RKC)) :: getFunc
7890 real(RKC) , intent(in) :: lb
7891 type(pinf_type) , intent(in) :: ub
7892 real(RKC) , intent(in) :: abstol
7893 real(RKC) , intent(in) :: reltol
7894 type(GK61_type) , intent(in) :: qrule
7895 real(RKC) , intent(out) :: integral, abserr
7896 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7897 integer(IK) , intent(out) , contiguous :: sindex(:)
7898 integer(IK) , intent(out) :: neval
7899 integer(IK) , intent(out) :: nint
7900 integer(IK) :: err
7901 end function
7902#endif
7903
7904#if RK3_ENABLED
7905 module function QAGD_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7906#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7907 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK3
7908#endif
7909 use pm_kind, only: RKC => RK3
7910 procedure(real(RKC)) :: getFunc
7911 real(RKC) , intent(in) :: lb
7912 type(pinf_type) , intent(in) :: ub
7913 real(RKC) , intent(in) :: abstol
7914 real(RKC) , intent(in) :: reltol
7915 type(GK61_type) , intent(in) :: qrule
7916 real(RKC) , intent(out) :: integral, abserr
7917 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7918 integer(IK) , intent(out) , contiguous :: sindex(:)
7919 integer(IK) , intent(out) :: neval
7920 integer(IK) , intent(out) :: nint
7921 integer(IK) :: err
7922 end function
7923#endif
7924
7925#if RK2_ENABLED
7926 module function QAGD_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7928 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK2
7929#endif
7930 use pm_kind, only: RKC => RK2
7931 procedure(real(RKC)) :: getFunc
7932 real(RKC) , intent(in) :: lb
7933 type(pinf_type) , intent(in) :: ub
7934 real(RKC) , intent(in) :: abstol
7935 real(RKC) , intent(in) :: reltol
7936 type(GK61_type) , intent(in) :: qrule
7937 real(RKC) , intent(out) :: integral, abserr
7938 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7939 integer(IK) , intent(out) , contiguous :: sindex(:)
7940 integer(IK) , intent(out) :: neval
7941 integer(IK) , intent(out) :: nint
7942 integer(IK) :: err
7943 end function
7944#endif
7945
7946#if RK1_ENABLED
7947 module function QAGD_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7949 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK1
7950#endif
7951 use pm_kind, only: RKC => RK1
7952 procedure(real(RKC)) :: getFunc
7953 real(RKC) , intent(in) :: lb
7954 type(pinf_type) , intent(in) :: ub
7955 real(RKC) , intent(in) :: abstol
7956 real(RKC) , intent(in) :: reltol
7957 type(GK61_type) , intent(in) :: qrule
7958 real(RKC) , intent(out) :: integral, abserr
7959 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7960 integer(IK) , intent(out) , contiguous :: sindex(:)
7961 integer(IK) , intent(out) :: neval
7962 integer(IK) , intent(out) :: nint
7963 integer(IK) :: err
7964 end function
7965#endif
7966
7967 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7968
7969#if RK5_ENABLED
7970 module function QAGD_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7972 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK5
7973#endif
7974 use pm_kind, only: RKC => RK5
7975 procedure(real(RKC)) :: getFunc
7976 type(ninf_type) , intent(in) :: lb
7977 real(RKC) , intent(in) :: ub
7978 real(RKC) , intent(in) :: abstol
7979 real(RKC) , intent(in) :: reltol
7980 type(GK61_type) , intent(in) :: qrule
7981 real(RKC) , intent(out) :: integral, abserr
7982 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7983 integer(IK) , intent(out) , contiguous :: sindex(:)
7984 integer(IK) , intent(out) :: neval
7985 integer(IK) , intent(out) :: nint
7986 integer(IK) :: err
7987 end function
7988#endif
7989
7990#if RK4_ENABLED
7991 module function QAGD_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7992#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7993 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK4
7994#endif
7995 use pm_kind, only: RKC => RK4
7996 procedure(real(RKC)) :: getFunc
7997 type(ninf_type) , intent(in) :: lb
7998 real(RKC) , intent(in) :: ub
7999 real(RKC) , intent(in) :: abstol
8000 real(RKC) , intent(in) :: reltol
8001 type(GK61_type) , intent(in) :: qrule
8002 real(RKC) , intent(out) :: integral, abserr
8003 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8004 integer(IK) , intent(out) , contiguous :: sindex(:)
8005 integer(IK) , intent(out) :: neval
8006 integer(IK) , intent(out) :: nint
8007 integer(IK) :: err
8008 end function
8009#endif
8010
8011#if RK3_ENABLED
8012 module function QAGD_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8014 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK3
8015#endif
8016 use pm_kind, only: RKC => RK3
8017 procedure(real(RKC)) :: getFunc
8018 type(ninf_type) , intent(in) :: lb
8019 real(RKC) , intent(in) :: ub
8020 real(RKC) , intent(in) :: abstol
8021 real(RKC) , intent(in) :: reltol
8022 type(GK61_type) , intent(in) :: qrule
8023 real(RKC) , intent(out) :: integral, abserr
8024 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8025 integer(IK) , intent(out) , contiguous :: sindex(:)
8026 integer(IK) , intent(out) :: neval
8027 integer(IK) , intent(out) :: nint
8028 integer(IK) :: err
8029 end function
8030#endif
8031
8032#if RK2_ENABLED
8033 module function QAGD_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8035 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK2
8036#endif
8037 use pm_kind, only: RKC => RK2
8038 procedure(real(RKC)) :: getFunc
8039 type(ninf_type) , intent(in) :: lb
8040 real(RKC) , intent(in) :: ub
8041 real(RKC) , intent(in) :: abstol
8042 real(RKC) , intent(in) :: reltol
8043 type(GK61_type) , intent(in) :: qrule
8044 real(RKC) , intent(out) :: integral, abserr
8045 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8046 integer(IK) , intent(out) , contiguous :: sindex(:)
8047 integer(IK) , intent(out) :: neval
8048 integer(IK) , intent(out) :: nint
8049 integer(IK) :: err
8050 end function
8051#endif
8052
8053#if RK1_ENABLED
8054 module function QAGD_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8056 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK1
8057#endif
8058 use pm_kind, only: RKC => RK1
8059 procedure(real(RKC)) :: getFunc
8060 type(ninf_type) , intent(in) :: lb
8061 real(RKC) , intent(in) :: ub
8062 real(RKC) , intent(in) :: abstol
8063 real(RKC) , intent(in) :: reltol
8064 type(GK61_type) , intent(in) :: qrule
8065 real(RKC) , intent(out) :: integral, abserr
8066 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8067 integer(IK) , intent(out) , contiguous :: sindex(:)
8068 integer(IK) , intent(out) :: neval
8069 integer(IK) , intent(out) :: nint
8070 integer(IK) :: err
8071 end function
8072#endif
8073
8074 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8075
8076#if RK5_ENABLED
8077 module function QAGD_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8079 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK5
8080#endif
8081 use pm_kind, only: RKC => RK5
8082 procedure(real(RKC)) :: getFunc
8083 type(ninf_type) , intent(in) :: lb
8084 type(pinf_type) , intent(in) :: ub
8085 real(RKC) , intent(in) :: abstol
8086 real(RKC) , intent(in) :: reltol
8087 type(GK61_type) , intent(in) :: qrule
8088 real(RKC) , intent(out) :: integral, abserr
8089 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8090 integer(IK) , intent(out) , contiguous :: sindex(:)
8091 integer(IK) , intent(out) :: neval
8092 integer(IK) , intent(out) :: nint
8093 integer(IK) :: err
8094 end function
8095#endif
8096
8097#if RK4_ENABLED
8098 module function QAGD_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8100 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK4
8101#endif
8102 use pm_kind, only: RKC => RK4
8103 procedure(real(RKC)) :: getFunc
8104 type(ninf_type) , intent(in) :: lb
8105 type(pinf_type) , intent(in) :: ub
8106 real(RKC) , intent(in) :: abstol
8107 real(RKC) , intent(in) :: reltol
8108 type(GK61_type) , intent(in) :: qrule
8109 real(RKC) , intent(out) :: integral, abserr
8110 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8111 integer(IK) , intent(out) , contiguous :: sindex(:)
8112 integer(IK) , intent(out) :: neval
8113 integer(IK) , intent(out) :: nint
8114 integer(IK) :: err
8115 end function
8116#endif
8117
8118#if RK3_ENABLED
8119 module function QAGD_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8121 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK3
8122#endif
8123 use pm_kind, only: RKC => RK3
8124 procedure(real(RKC)) :: getFunc
8125 type(ninf_type) , intent(in) :: lb
8126 type(pinf_type) , intent(in) :: ub
8127 real(RKC) , intent(in) :: abstol
8128 real(RKC) , intent(in) :: reltol
8129 type(GK61_type) , intent(in) :: qrule
8130 real(RKC) , intent(out) :: integral, abserr
8131 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8132 integer(IK) , intent(out) , contiguous :: sindex(:)
8133 integer(IK) , intent(out) :: neval
8134 integer(IK) , intent(out) :: nint
8135 integer(IK) :: err
8136 end function
8137#endif
8138
8139#if RK2_ENABLED
8140 module function QAGD_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8142 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK2
8143#endif
8144 use pm_kind, only: RKC => RK2
8145 procedure(real(RKC)) :: getFunc
8146 type(ninf_type) , intent(in) :: lb
8147 type(pinf_type) , intent(in) :: ub
8148 real(RKC) , intent(in) :: abstol
8149 real(RKC) , intent(in) :: reltol
8150 type(GK61_type) , intent(in) :: qrule
8151 real(RKC) , intent(out) :: integral, abserr
8152 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8153 integer(IK) , intent(out) , contiguous :: sindex(:)
8154 integer(IK) , intent(out) :: neval
8155 integer(IK) , intent(out) :: nint
8156 integer(IK) :: err
8157 end function
8158#endif
8159
8160#if RK1_ENABLED
8161 module function QAGD_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8163 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK1
8164#endif
8165 use pm_kind, only: RKC => RK1
8166 procedure(real(RKC)) :: getFunc
8167 type(ninf_type) , intent(in) :: lb
8168 type(pinf_type) , intent(in) :: ub
8169 real(RKC) , intent(in) :: abstol
8170 real(RKC) , intent(in) :: reltol
8171 type(GK61_type) , intent(in) :: qrule
8172 real(RKC) , intent(out) :: integral, abserr
8173 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8174 integer(IK) , intent(out) , contiguous :: sindex(:)
8175 integer(IK) , intent(out) :: neval
8176 integer(IK) , intent(out) :: nint
8177 integer(IK) :: err
8178 end function
8179#endif
8180
8181 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8182
8183 end interface
8184
8185 ! QAGD_GKXX
8186
8187 interface getQuadErr
8188
8189 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8190
8191#if RK5_ENABLED
8192 module function QAGD_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8194 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK5
8195#endif
8196 use pm_kind, only: RKC => RK5
8197 procedure(real(RKC)) :: getFunc
8198 real(RKC) , intent(in) :: lb
8199 real(RKC) , intent(in) :: ub
8200 real(RKC) , intent(in) :: abstol
8201 real(RKC) , intent(in) :: reltol
8202 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8203 real(RKC) , intent(out) :: integral, abserr
8204 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8205 integer(IK) , intent(out) , contiguous :: sindex(:)
8206 integer(IK) , intent(out) :: neval
8207 integer(IK) , intent(out) :: nint
8208 integer(IK) :: err
8209 end function
8210#endif
8211
8212#if RK4_ENABLED
8213 module function QAGD_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8215 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK4
8216#endif
8217 use pm_kind, only: RKC => RK4
8218 procedure(real(RKC)) :: getFunc
8219 real(RKC) , intent(in) :: lb
8220 real(RKC) , intent(in) :: ub
8221 real(RKC) , intent(in) :: abstol
8222 real(RKC) , intent(in) :: reltol
8223 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8224 real(RKC) , intent(out) :: integral, abserr
8225 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8226 integer(IK) , intent(out) , contiguous :: sindex(:)
8227 integer(IK) , intent(out) :: neval
8228 integer(IK) , intent(out) :: nint
8229 integer(IK) :: err
8230 end function
8231#endif
8232
8233#if RK3_ENABLED
8234 module function QAGD_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8236 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK3
8237#endif
8238 use pm_kind, only: RKC => RK3
8239 procedure(real(RKC)) :: getFunc
8240 real(RKC) , intent(in) :: lb
8241 real(RKC) , intent(in) :: ub
8242 real(RKC) , intent(in) :: abstol
8243 real(RKC) , intent(in) :: reltol
8244 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8245 real(RKC) , intent(out) :: integral, abserr
8246 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8247 integer(IK) , intent(out) , contiguous :: sindex(:)
8248 integer(IK) , intent(out) :: neval
8249 integer(IK) , intent(out) :: nint
8250 integer(IK) :: err
8251 end function
8252#endif
8253
8254#if RK2_ENABLED
8255 module function QAGD_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8257 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK2
8258#endif
8259 use pm_kind, only: RKC => RK2
8260 procedure(real(RKC)) :: getFunc
8261 real(RKC) , intent(in) :: lb
8262 real(RKC) , intent(in) :: ub
8263 real(RKC) , intent(in) :: abstol
8264 real(RKC) , intent(in) :: reltol
8265 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8266 real(RKC) , intent(out) :: integral, abserr
8267 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8268 integer(IK) , intent(out) , contiguous :: sindex(:)
8269 integer(IK) , intent(out) :: neval
8270 integer(IK) , intent(out) :: nint
8271 integer(IK) :: err
8272 end function
8273#endif
8274
8275#if RK1_ENABLED
8276 module function QAGD_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8278 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK1
8279#endif
8280 use pm_kind, only: RKC => RK1
8281 procedure(real(RKC)) :: getFunc
8282 real(RKC) , intent(in) :: lb
8283 real(RKC) , intent(in) :: ub
8284 real(RKC) , intent(in) :: abstol
8285 real(RKC) , intent(in) :: reltol
8286 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8287 real(RKC) , intent(out) :: integral, abserr
8288 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8289 integer(IK) , intent(out) , contiguous :: sindex(:)
8290 integer(IK) , intent(out) :: neval
8291 integer(IK) , intent(out) :: nint
8292 integer(IK) :: err
8293 end function
8294#endif
8295
8296 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8297
8298#if RK5_ENABLED
8299 module function QAGD_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8301 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK5
8302#endif
8303 use pm_kind, only: RKC => RK5
8304 procedure(real(RKC)) :: getFunc
8305 real(RKC) , intent(in) :: lb
8306 type(pinf_type) , intent(in) :: ub
8307 real(RKC) , intent(in) :: abstol
8308 real(RKC) , intent(in) :: reltol
8309 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8310 real(RKC) , intent(out) :: integral, abserr
8311 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8312 integer(IK) , intent(out) , contiguous :: sindex(:)
8313 integer(IK) , intent(out) :: neval
8314 integer(IK) , intent(out) :: nint
8315 integer(IK) :: err
8316 end function
8317#endif
8318
8319#if RK4_ENABLED
8320 module function QAGD_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8322 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK4
8323#endif
8324 use pm_kind, only: RKC => RK4
8325 procedure(real(RKC)) :: getFunc
8326 real(RKC) , intent(in) :: lb
8327 type(pinf_type) , intent(in) :: ub
8328 real(RKC) , intent(in) :: abstol
8329 real(RKC) , intent(in) :: reltol
8330 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8331 real(RKC) , intent(out) :: integral, abserr
8332 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8333 integer(IK) , intent(out) , contiguous :: sindex(:)
8334 integer(IK) , intent(out) :: neval
8335 integer(IK) , intent(out) :: nint
8336 integer(IK) :: err
8337 end function
8338#endif
8339
8340#if RK3_ENABLED
8341 module function QAGD_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8343 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK3
8344#endif
8345 use pm_kind, only: RKC => RK3
8346 procedure(real(RKC)) :: getFunc
8347 real(RKC) , intent(in) :: lb
8348 type(pinf_type) , intent(in) :: ub
8349 real(RKC) , intent(in) :: abstol
8350 real(RKC) , intent(in) :: reltol
8351 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8352 real(RKC) , intent(out) :: integral, abserr
8353 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8354 integer(IK) , intent(out) , contiguous :: sindex(:)
8355 integer(IK) , intent(out) :: neval
8356 integer(IK) , intent(out) :: nint
8357 integer(IK) :: err
8358 end function
8359#endif
8360
8361#if RK2_ENABLED
8362 module function QAGD_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8364 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK2
8365#endif
8366 use pm_kind, only: RKC => RK2
8367 procedure(real(RKC)) :: getFunc
8368 real(RKC) , intent(in) :: lb
8369 type(pinf_type) , intent(in) :: ub
8370 real(RKC) , intent(in) :: abstol
8371 real(RKC) , intent(in) :: reltol
8372 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8373 real(RKC) , intent(out) :: integral, abserr
8374 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8375 integer(IK) , intent(out) , contiguous :: sindex(:)
8376 integer(IK) , intent(out) :: neval
8377 integer(IK) , intent(out) :: nint
8378 integer(IK) :: err
8379 end function
8380#endif
8381
8382#if RK1_ENABLED
8383 module function QAGD_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8385 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK1
8386#endif
8387 use pm_kind, only: RKC => RK1
8388 procedure(real(RKC)) :: getFunc
8389 real(RKC) , intent(in) :: lb
8390 type(pinf_type) , intent(in) :: ub
8391 real(RKC) , intent(in) :: abstol
8392 real(RKC) , intent(in) :: reltol
8393 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8394 real(RKC) , intent(out) :: integral, abserr
8395 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8396 integer(IK) , intent(out) , contiguous :: sindex(:)
8397 integer(IK) , intent(out) :: neval
8398 integer(IK) , intent(out) :: nint
8399 integer(IK) :: err
8400 end function
8401#endif
8402
8403 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8404
8405#if RK5_ENABLED
8406 module function QAGD_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8408 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK5
8409#endif
8410 use pm_kind, only: RKC => RK5
8411 procedure(real(RKC)) :: getFunc
8412 type(ninf_type) , intent(in) :: lb
8413 real(RKC) , intent(in) :: ub
8414 real(RKC) , intent(in) :: abstol
8415 real(RKC) , intent(in) :: reltol
8416 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8417 real(RKC) , intent(out) :: integral, abserr
8418 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8419 integer(IK) , intent(out) , contiguous :: sindex(:)
8420 integer(IK) , intent(out) :: neval
8421 integer(IK) , intent(out) :: nint
8422 integer(IK) :: err
8423 end function
8424#endif
8425
8426#if RK4_ENABLED
8427 module function QAGD_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8429 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK4
8430#endif
8431 use pm_kind, only: RKC => RK4
8432 procedure(real(RKC)) :: getFunc
8433 type(ninf_type) , intent(in) :: lb
8434 real(RKC) , intent(in) :: ub
8435 real(RKC) , intent(in) :: abstol
8436 real(RKC) , intent(in) :: reltol
8437 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8438 real(RKC) , intent(out) :: integral, abserr
8439 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8440 integer(IK) , intent(out) , contiguous :: sindex(:)
8441 integer(IK) , intent(out) :: neval
8442 integer(IK) , intent(out) :: nint
8443 integer(IK) :: err
8444 end function
8445#endif
8446
8447#if RK3_ENABLED
8448 module function QAGD_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8450 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK3
8451#endif
8452 use pm_kind, only: RKC => RK3
8453 procedure(real(RKC)) :: getFunc
8454 type(ninf_type) , intent(in) :: lb
8455 real(RKC) , intent(in) :: ub
8456 real(RKC) , intent(in) :: abstol
8457 real(RKC) , intent(in) :: reltol
8458 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8459 real(RKC) , intent(out) :: integral, abserr
8460 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8461 integer(IK) , intent(out) , contiguous :: sindex(:)
8462 integer(IK) , intent(out) :: neval
8463 integer(IK) , intent(out) :: nint
8464 integer(IK) :: err
8465 end function
8466#endif
8467
8468#if RK2_ENABLED
8469 module function QAGD_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8471 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK2
8472#endif
8473 use pm_kind, only: RKC => RK2
8474 procedure(real(RKC)) :: getFunc
8475 type(ninf_type) , intent(in) :: lb
8476 real(RKC) , intent(in) :: ub
8477 real(RKC) , intent(in) :: abstol
8478 real(RKC) , intent(in) :: reltol
8479 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8480 real(RKC) , intent(out) :: integral, abserr
8481 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8482 integer(IK) , intent(out) , contiguous :: sindex(:)
8483 integer(IK) , intent(out) :: neval
8484 integer(IK) , intent(out) :: nint
8485 integer(IK) :: err
8486 end function
8487#endif
8488
8489#if RK1_ENABLED
8490 module function QAGD_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8492 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK1
8493#endif
8494 use pm_kind, only: RKC => RK1
8495 procedure(real(RKC)) :: getFunc
8496 type(ninf_type) , intent(in) :: lb
8497 real(RKC) , intent(in) :: ub
8498 real(RKC) , intent(in) :: abstol
8499 real(RKC) , intent(in) :: reltol
8500 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8501 real(RKC) , intent(out) :: integral, abserr
8502 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8503 integer(IK) , intent(out) , contiguous :: sindex(:)
8504 integer(IK) , intent(out) :: neval
8505 integer(IK) , intent(out) :: nint
8506 integer(IK) :: err
8507 end function
8508#endif
8509
8510 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8511
8512#if RK5_ENABLED
8513 module function QAGD_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8515 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK5
8516#endif
8517 use pm_kind, only: RKC => RK5
8518 procedure(real(RKC)) :: getFunc
8519 type(ninf_type) , intent(in) :: lb
8520 type(pinf_type) , intent(in) :: ub
8521 real(RKC) , intent(in) :: abstol
8522 real(RKC) , intent(in) :: reltol
8523 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8524 real(RKC) , intent(out) :: integral, abserr
8525 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8526 integer(IK) , intent(out) , contiguous :: sindex(:)
8527 integer(IK) , intent(out) :: neval
8528 integer(IK) , intent(out) :: nint
8529 integer(IK) :: err
8530 end function
8531#endif
8532
8533#if RK4_ENABLED
8534 module function QAGD_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8536 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK4
8537#endif
8538 use pm_kind, only: RKC => RK4
8539 procedure(real(RKC)) :: getFunc
8540 type(ninf_type) , intent(in) :: lb
8541 type(pinf_type) , intent(in) :: ub
8542 real(RKC) , intent(in) :: abstol
8543 real(RKC) , intent(in) :: reltol
8544 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8545 real(RKC) , intent(out) :: integral, abserr
8546 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8547 integer(IK) , intent(out) , contiguous :: sindex(:)
8548 integer(IK) , intent(out) :: neval
8549 integer(IK) , intent(out) :: nint
8550 integer(IK) :: err
8551 end function
8552#endif
8553
8554#if RK3_ENABLED
8555 module function QAGD_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8557 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK3
8558#endif
8559 use pm_kind, only: RKC => RK3
8560 procedure(real(RKC)) :: getFunc
8561 type(ninf_type) , intent(in) :: lb
8562 type(pinf_type) , intent(in) :: ub
8563 real(RKC) , intent(in) :: abstol
8564 real(RKC) , intent(in) :: reltol
8565 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8566 real(RKC) , intent(out) :: integral, abserr
8567 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8568 integer(IK) , intent(out) , contiguous :: sindex(:)
8569 integer(IK) , intent(out) :: neval
8570 integer(IK) , intent(out) :: nint
8571 integer(IK) :: err
8572 end function
8573#endif
8574
8575#if RK2_ENABLED
8576 module function QAGD_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8578 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK2
8579#endif
8580 use pm_kind, only: RKC => RK2
8581 procedure(real(RKC)) :: getFunc
8582 type(ninf_type) , intent(in) :: lb
8583 type(pinf_type) , intent(in) :: ub
8584 real(RKC) , intent(in) :: abstol
8585 real(RKC) , intent(in) :: reltol
8586 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8587 real(RKC) , intent(out) :: integral, abserr
8588 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8589 integer(IK) , intent(out) , contiguous :: sindex(:)
8590 integer(IK) , intent(out) :: neval
8591 integer(IK) , intent(out) :: nint
8592 integer(IK) :: err
8593 end function
8594#endif
8595
8596#if RK1_ENABLED
8597 module function QAGD_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8599 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK1
8600#endif
8601 use pm_kind, only: RKC => RK1
8602 procedure(real(RKC)) :: getFunc
8603 type(ninf_type) , intent(in) :: lb
8604 type(pinf_type) , intent(in) :: ub
8605 real(RKC) , intent(in) :: abstol
8606 real(RKC) , intent(in) :: reltol
8607 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8608 real(RKC) , intent(out) :: integral, abserr
8609 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8610 integer(IK) , intent(out) , contiguous :: sindex(:)
8611 integer(IK) , intent(out) :: neval
8612 integer(IK) , intent(out) :: nint
8613 integer(IK) :: err
8614 end function
8615#endif
8616
8617 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8618
8619 end interface
8620
8621!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8622
8623 ! QAGS_GK15
8624
8625 interface getQuadErr
8626
8627 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8628
8629#if RK5_ENABLED
8630 module function QAGS_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8631#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8632 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK5
8633#endif
8634 use pm_kind, only: RKC => RK5
8635 procedure(real(RKC)) :: getFunc
8636 real(RKC) , intent(in) :: lb
8637 real(RKC) , intent(in) :: ub
8638 real(RKC) , intent(in) :: abstol
8639 real(RKC) , intent(in) :: reltol
8640 type(GK15_type) , intent(in) :: qrule
8641 type(weps_type) , intent(in) :: help
8642 real(RKC) , intent(out) :: integral, abserr
8643 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8644 integer(IK) , intent(out) , contiguous :: sindex(:)
8645 integer(IK) , intent(out) :: neval
8646 integer(IK) , intent(out) :: nint
8647 integer(IK) :: err
8648 end function
8649#endif
8650
8651#if RK4_ENABLED
8652 module function QAGS_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8654 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK4
8655#endif
8656 use pm_kind, only: RKC => RK4
8657 procedure(real(RKC)) :: getFunc
8658 real(RKC) , intent(in) :: lb
8659 real(RKC) , intent(in) :: ub
8660 real(RKC) , intent(in) :: abstol
8661 real(RKC) , intent(in) :: reltol
8662 type(GK15_type) , intent(in) :: qrule
8663 type(weps_type) , intent(in) :: help
8664 real(RKC) , intent(out) :: integral, abserr
8665 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8666 integer(IK) , intent(out) , contiguous :: sindex(:)
8667 integer(IK) , intent(out) :: neval
8668 integer(IK) , intent(out) :: nint
8669 integer(IK) :: err
8670 end function
8671#endif
8672
8673#if RK3_ENABLED
8674 module function QAGS_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8676 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK3
8677#endif
8678 use pm_kind, only: RKC => RK3
8679 procedure(real(RKC)) :: getFunc
8680 real(RKC) , intent(in) :: lb
8681 real(RKC) , intent(in) :: ub
8682 real(RKC) , intent(in) :: abstol
8683 real(RKC) , intent(in) :: reltol
8684 type(GK15_type) , intent(in) :: qrule
8685 type(weps_type) , intent(in) :: help
8686 real(RKC) , intent(out) :: integral, abserr
8687 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8688 integer(IK) , intent(out) , contiguous :: sindex(:)
8689 integer(IK) , intent(out) :: neval
8690 integer(IK) , intent(out) :: nint
8691 integer(IK) :: err
8692 end function
8693#endif
8694
8695#if RK2_ENABLED
8696 module function QAGS_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8698 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK2
8699#endif
8700 use pm_kind, only: RKC => RK2
8701 procedure(real(RKC)) :: getFunc
8702 real(RKC) , intent(in) :: lb
8703 real(RKC) , intent(in) :: ub
8704 real(RKC) , intent(in) :: abstol
8705 real(RKC) , intent(in) :: reltol
8706 type(GK15_type) , intent(in) :: qrule
8707 type(weps_type) , intent(in) :: help
8708 real(RKC) , intent(out) :: integral, abserr
8709 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8710 integer(IK) , intent(out) , contiguous :: sindex(:)
8711 integer(IK) , intent(out) :: neval
8712 integer(IK) , intent(out) :: nint
8713 integer(IK) :: err
8714 end function
8715#endif
8716
8717#if RK1_ENABLED
8718 module function QAGS_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8720 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK1
8721#endif
8722 use pm_kind, only: RKC => RK1
8723 procedure(real(RKC)) :: getFunc
8724 real(RKC) , intent(in) :: lb
8725 real(RKC) , intent(in) :: ub
8726 real(RKC) , intent(in) :: abstol
8727 real(RKC) , intent(in) :: reltol
8728 type(GK15_type) , intent(in) :: qrule
8729 type(weps_type) , intent(in) :: help
8730 real(RKC) , intent(out) :: integral, abserr
8731 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8732 integer(IK) , intent(out) , contiguous :: sindex(:)
8733 integer(IK) , intent(out) :: neval
8734 integer(IK) , intent(out) :: nint
8735 integer(IK) :: err
8736 end function
8737#endif
8738
8739 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8740
8741#if RK5_ENABLED
8742 module function QAGS_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8744 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK5
8745#endif
8746 use pm_kind, only: RKC => RK5
8747 procedure(real(RKC)) :: getFunc
8748 real(RKC) , intent(in) :: lb
8749 type(pinf_type) , intent(in) :: ub
8750 real(RKC) , intent(in) :: abstol
8751 real(RKC) , intent(in) :: reltol
8752 type(GK15_type) , intent(in) :: qrule
8753 type(weps_type) , intent(in) :: help
8754 real(RKC) , intent(out) :: integral, abserr
8755 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8756 integer(IK) , intent(out) , contiguous :: sindex(:)
8757 integer(IK) , intent(out) :: neval
8758 integer(IK) , intent(out) :: nint
8759 integer(IK) :: err
8760 end function
8761#endif
8762
8763#if RK4_ENABLED
8764 module function QAGS_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8766 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK4
8767#endif
8768 use pm_kind, only: RKC => RK4
8769 procedure(real(RKC)) :: getFunc
8770 real(RKC) , intent(in) :: lb
8771 type(pinf_type) , intent(in) :: ub
8772 real(RKC) , intent(in) :: abstol
8773 real(RKC) , intent(in) :: reltol
8774 type(GK15_type) , intent(in) :: qrule
8775 type(weps_type) , intent(in) :: help
8776 real(RKC) , intent(out) :: integral, abserr
8777 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8778 integer(IK) , intent(out) , contiguous :: sindex(:)
8779 integer(IK) , intent(out) :: neval
8780 integer(IK) , intent(out) :: nint
8781 integer(IK) :: err
8782 end function
8783#endif
8784
8785#if RK3_ENABLED
8786 module function QAGS_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8788 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK3
8789#endif
8790 use pm_kind, only: RKC => RK3
8791 procedure(real(RKC)) :: getFunc
8792 real(RKC) , intent(in) :: lb
8793 type(pinf_type) , intent(in) :: ub
8794 real(RKC) , intent(in) :: abstol
8795 real(RKC) , intent(in) :: reltol
8796 type(GK15_type) , intent(in) :: qrule
8797 type(weps_type) , intent(in) :: help
8798 real(RKC) , intent(out) :: integral, abserr
8799 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8800 integer(IK) , intent(out) , contiguous :: sindex(:)
8801 integer(IK) , intent(out) :: neval
8802 integer(IK) , intent(out) :: nint
8803 integer(IK) :: err
8804 end function
8805#endif
8806
8807#if RK2_ENABLED
8808 module function QAGS_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8810 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK2
8811#endif
8812 use pm_kind, only: RKC => RK2
8813 procedure(real(RKC)) :: getFunc
8814 real(RKC) , intent(in) :: lb
8815 type(pinf_type) , intent(in) :: ub
8816 real(RKC) , intent(in) :: abstol
8817 real(RKC) , intent(in) :: reltol
8818 type(GK15_type) , intent(in) :: qrule
8819 type(weps_type) , intent(in) :: help
8820 real(RKC) , intent(out) :: integral, abserr
8821 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8822 integer(IK) , intent(out) , contiguous :: sindex(:)
8823 integer(IK) , intent(out) :: neval
8824 integer(IK) , intent(out) :: nint
8825 integer(IK) :: err
8826 end function
8827#endif
8828
8829#if RK1_ENABLED
8830 module function QAGS_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8832 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK1
8833#endif
8834 use pm_kind, only: RKC => RK1
8835 procedure(real(RKC)) :: getFunc
8836 real(RKC) , intent(in) :: lb
8837 type(pinf_type) , intent(in) :: ub
8838 real(RKC) , intent(in) :: abstol
8839 real(RKC) , intent(in) :: reltol
8840 type(GK15_type) , intent(in) :: qrule
8841 type(weps_type) , intent(in) :: help
8842 real(RKC) , intent(out) :: integral, abserr
8843 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8844 integer(IK) , intent(out) , contiguous :: sindex(:)
8845 integer(IK) , intent(out) :: neval
8846 integer(IK) , intent(out) :: nint
8847 integer(IK) :: err
8848 end function
8849#endif
8850
8851 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8852
8853#if RK5_ENABLED
8854 module function QAGS_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8856 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK5
8857#endif
8858 use pm_kind, only: RKC => RK5
8859 procedure(real(RKC)) :: getFunc
8860 type(ninf_type) , intent(in) :: lb
8861 real(RKC) , intent(in) :: ub
8862 real(RKC) , intent(in) :: abstol
8863 real(RKC) , intent(in) :: reltol
8864 type(GK15_type) , intent(in) :: qrule
8865 type(weps_type) , intent(in) :: help
8866 real(RKC) , intent(out) :: integral, abserr
8867 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8868 integer(IK) , intent(out) , contiguous :: sindex(:)
8869 integer(IK) , intent(out) :: neval
8870 integer(IK) , intent(out) :: nint
8871 integer(IK) :: err
8872 end function
8873#endif
8874
8875#if RK4_ENABLED
8876 module function QAGS_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8878 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK4
8879#endif
8880 use pm_kind, only: RKC => RK4
8881 procedure(real(RKC)) :: getFunc
8882 type(ninf_type) , intent(in) :: lb
8883 real(RKC) , intent(in) :: ub
8884 real(RKC) , intent(in) :: abstol
8885 real(RKC) , intent(in) :: reltol
8886 type(GK15_type) , intent(in) :: qrule
8887 type(weps_type) , intent(in) :: help
8888 real(RKC) , intent(out) :: integral, abserr
8889 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8890 integer(IK) , intent(out) , contiguous :: sindex(:)
8891 integer(IK) , intent(out) :: neval
8892 integer(IK) , intent(out) :: nint
8893 integer(IK) :: err
8894 end function
8895#endif
8896
8897#if RK3_ENABLED
8898 module function QAGS_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8900 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK3
8901#endif
8902 use pm_kind, only: RKC => RK3
8903 procedure(real(RKC)) :: getFunc
8904 type(ninf_type) , intent(in) :: lb
8905 real(RKC) , intent(in) :: ub
8906 real(RKC) , intent(in) :: abstol
8907 real(RKC) , intent(in) :: reltol
8908 type(GK15_type) , intent(in) :: qrule
8909 type(weps_type) , intent(in) :: help
8910 real(RKC) , intent(out) :: integral, abserr
8911 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8912 integer(IK) , intent(out) , contiguous :: sindex(:)
8913 integer(IK) , intent(out) :: neval
8914 integer(IK) , intent(out) :: nint
8915 integer(IK) :: err
8916 end function
8917#endif
8918
8919#if RK2_ENABLED
8920 module function QAGS_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8922 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK2
8923#endif
8924 use pm_kind, only: RKC => RK2
8925 procedure(real(RKC)) :: getFunc
8926 type(ninf_type) , intent(in) :: lb
8927 real(RKC) , intent(in) :: ub
8928 real(RKC) , intent(in) :: abstol
8929 real(RKC) , intent(in) :: reltol
8930 type(GK15_type) , intent(in) :: qrule
8931 type(weps_type) , intent(in) :: help
8932 real(RKC) , intent(out) :: integral, abserr
8933 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8934 integer(IK) , intent(out) , contiguous :: sindex(:)
8935 integer(IK) , intent(out) :: neval
8936 integer(IK) , intent(out) :: nint
8937 integer(IK) :: err
8938 end function
8939#endif
8940
8941#if RK1_ENABLED
8942 module function QAGS_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8944 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK1
8945#endif
8946 use pm_kind, only: RKC => RK1
8947 procedure(real(RKC)) :: getFunc
8948 type(ninf_type) , intent(in) :: lb
8949 real(RKC) , intent(in) :: ub
8950 real(RKC) , intent(in) :: abstol
8951 real(RKC) , intent(in) :: reltol
8952 type(GK15_type) , intent(in) :: qrule
8953 type(weps_type) , intent(in) :: help
8954 real(RKC) , intent(out) :: integral, abserr
8955 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8956 integer(IK) , intent(out) , contiguous :: sindex(:)
8957 integer(IK) , intent(out) :: neval
8958 integer(IK) , intent(out) :: nint
8959 integer(IK) :: err
8960 end function
8961#endif
8962
8963 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8964
8965#if RK5_ENABLED
8966 module function QAGS_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8968 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK5
8969#endif
8970 use pm_kind, only: RKC => RK5
8971 procedure(real(RKC)) :: getFunc
8972 type(ninf_type) , intent(in) :: lb
8973 type(pinf_type) , intent(in) :: ub
8974 real(RKC) , intent(in) :: abstol
8975 real(RKC) , intent(in) :: reltol
8976 type(GK15_type) , intent(in) :: qrule
8977 type(weps_type) , intent(in) :: help
8978 real(RKC) , intent(out) :: integral, abserr
8979 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8980 integer(IK) , intent(out) , contiguous :: sindex(:)
8981 integer(IK) , intent(out) :: neval
8982 integer(IK) , intent(out) :: nint
8983 integer(IK) :: err
8984 end function
8985#endif
8986
8987#if RK4_ENABLED
8988 module function QAGS_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8990 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK4
8991#endif
8992 use pm_kind, only: RKC => RK4
8993 procedure(real(RKC)) :: getFunc
8994 type(ninf_type) , intent(in) :: lb
8995 type(pinf_type) , intent(in) :: ub
8996 real(RKC) , intent(in) :: abstol
8997 real(RKC) , intent(in) :: reltol
8998 type(GK15_type) , intent(in) :: qrule
8999 type(weps_type) , intent(in) :: help
9000 real(RKC) , intent(out) :: integral, abserr
9001 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9002 integer(IK) , intent(out) , contiguous :: sindex(:)
9003 integer(IK) , intent(out) :: neval
9004 integer(IK) , intent(out) :: nint
9005 integer(IK) :: err
9006 end function
9007#endif
9008
9009#if RK3_ENABLED
9010 module function QAGS_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9011#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9012 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK3
9013#endif
9014 use pm_kind, only: RKC => RK3
9015 procedure(real(RKC)) :: getFunc
9016 type(ninf_type) , intent(in) :: lb
9017 type(pinf_type) , intent(in) :: ub
9018 real(RKC) , intent(in) :: abstol
9019 real(RKC) , intent(in) :: reltol
9020 type(GK15_type) , intent(in) :: qrule
9021 type(weps_type) , intent(in) :: help
9022 real(RKC) , intent(out) :: integral, abserr
9023 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9024 integer(IK) , intent(out) , contiguous :: sindex(:)
9025 integer(IK) , intent(out) :: neval
9026 integer(IK) , intent(out) :: nint
9027 integer(IK) :: err
9028 end function
9029#endif
9030
9031#if RK2_ENABLED
9032 module function QAGS_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9034 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK2
9035#endif
9036 use pm_kind, only: RKC => RK2
9037 procedure(real(RKC)) :: getFunc
9038 type(ninf_type) , intent(in) :: lb
9039 type(pinf_type) , intent(in) :: ub
9040 real(RKC) , intent(in) :: abstol
9041 real(RKC) , intent(in) :: reltol
9042 type(GK15_type) , intent(in) :: qrule
9043 type(weps_type) , intent(in) :: help
9044 real(RKC) , intent(out) :: integral, abserr
9045 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9046 integer(IK) , intent(out) , contiguous :: sindex(:)
9047 integer(IK) , intent(out) :: neval
9048 integer(IK) , intent(out) :: nint
9049 integer(IK) :: err
9050 end function
9051#endif
9052
9053#if RK1_ENABLED
9054 module function QAGS_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9056 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK1
9057#endif
9058 use pm_kind, only: RKC => RK1
9059 procedure(real(RKC)) :: getFunc
9060 type(ninf_type) , intent(in) :: lb
9061 type(pinf_type) , intent(in) :: ub
9062 real(RKC) , intent(in) :: abstol
9063 real(RKC) , intent(in) :: reltol
9064 type(GK15_type) , intent(in) :: qrule
9065 type(weps_type) , intent(in) :: help
9066 real(RKC) , intent(out) :: integral, abserr
9067 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9068 integer(IK) , intent(out) , contiguous :: sindex(:)
9069 integer(IK) , intent(out) :: neval
9070 integer(IK) , intent(out) :: nint
9071 integer(IK) :: err
9072 end function
9073#endif
9074
9075 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9076
9077 end interface
9078
9079 ! QAGS_GK21
9080
9081 interface getQuadErr
9082
9083 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9084
9085#if RK5_ENABLED
9086 module function QAGS_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9087#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9088 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK5
9089#endif
9090 use pm_kind, only: RKC => RK5
9091 procedure(real(RKC)) :: getFunc
9092 real(RKC) , intent(in) :: lb
9093 real(RKC) , intent(in) :: ub
9094 real(RKC) , intent(in) :: abstol
9095 real(RKC) , intent(in) :: reltol
9096 type(GK21_type) , intent(in) :: qrule
9097 type(weps_type) , intent(in) :: help
9098 real(RKC) , intent(out) :: integral, abserr
9099 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9100 integer(IK) , intent(out) , contiguous :: sindex(:)
9101 integer(IK) , intent(out) :: neval
9102 integer(IK) , intent(out) :: nint
9103 integer(IK) :: err
9104 end function
9105#endif
9106
9107#if RK4_ENABLED
9108 module function QAGS_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9110 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK4
9111#endif
9112 use pm_kind, only: RKC => RK4
9113 procedure(real(RKC)) :: getFunc
9114 real(RKC) , intent(in) :: lb
9115 real(RKC) , intent(in) :: ub
9116 real(RKC) , intent(in) :: abstol
9117 real(RKC) , intent(in) :: reltol
9118 type(GK21_type) , intent(in) :: qrule
9119 type(weps_type) , intent(in) :: help
9120 real(RKC) , intent(out) :: integral, abserr
9121 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9122 integer(IK) , intent(out) , contiguous :: sindex(:)
9123 integer(IK) , intent(out) :: neval
9124 integer(IK) , intent(out) :: nint
9125 integer(IK) :: err
9126 end function
9127#endif
9128
9129#if RK3_ENABLED
9130 module function QAGS_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9132 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK3
9133#endif
9134 use pm_kind, only: RKC => RK3
9135 procedure(real(RKC)) :: getFunc
9136 real(RKC) , intent(in) :: lb
9137 real(RKC) , intent(in) :: ub
9138 real(RKC) , intent(in) :: abstol
9139 real(RKC) , intent(in) :: reltol
9140 type(GK21_type) , intent(in) :: qrule
9141 type(weps_type) , intent(in) :: help
9142 real(RKC) , intent(out) :: integral, abserr
9143 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9144 integer(IK) , intent(out) , contiguous :: sindex(:)
9145 integer(IK) , intent(out) :: neval
9146 integer(IK) , intent(out) :: nint
9147 integer(IK) :: err
9148 end function
9149#endif
9150
9151#if RK2_ENABLED
9152 module function QAGS_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9154 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK2
9155#endif
9156 use pm_kind, only: RKC => RK2
9157 procedure(real(RKC)) :: getFunc
9158 real(RKC) , intent(in) :: lb
9159 real(RKC) , intent(in) :: ub
9160 real(RKC) , intent(in) :: abstol
9161 real(RKC) , intent(in) :: reltol
9162 type(GK21_type) , intent(in) :: qrule
9163 type(weps_type) , intent(in) :: help
9164 real(RKC) , intent(out) :: integral, abserr
9165 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9166 integer(IK) , intent(out) , contiguous :: sindex(:)
9167 integer(IK) , intent(out) :: neval
9168 integer(IK) , intent(out) :: nint
9169 integer(IK) :: err
9170 end function
9171#endif
9172
9173#if RK1_ENABLED
9174 module function QAGS_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9176 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK1
9177#endif
9178 use pm_kind, only: RKC => RK1
9179 procedure(real(RKC)) :: getFunc
9180 real(RKC) , intent(in) :: lb
9181 real(RKC) , intent(in) :: ub
9182 real(RKC) , intent(in) :: abstol
9183 real(RKC) , intent(in) :: reltol
9184 type(GK21_type) , intent(in) :: qrule
9185 type(weps_type) , intent(in) :: help
9186 real(RKC) , intent(out) :: integral, abserr
9187 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9188 integer(IK) , intent(out) , contiguous :: sindex(:)
9189 integer(IK) , intent(out) :: neval
9190 integer(IK) , intent(out) :: nint
9191 integer(IK) :: err
9192 end function
9193#endif
9194
9195 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9196
9197#if RK5_ENABLED
9198 module function QAGS_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9200 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK5
9201#endif
9202 use pm_kind, only: RKC => RK5
9203 procedure(real(RKC)) :: getFunc
9204 real(RKC) , intent(in) :: lb
9205 type(pinf_type) , intent(in) :: ub
9206 real(RKC) , intent(in) :: abstol
9207 real(RKC) , intent(in) :: reltol
9208 type(GK21_type) , intent(in) :: qrule
9209 type(weps_type) , intent(in) :: help
9210 real(RKC) , intent(out) :: integral, abserr
9211 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9212 integer(IK) , intent(out) , contiguous :: sindex(:)
9213 integer(IK) , intent(out) :: neval
9214 integer(IK) , intent(out) :: nint
9215 integer(IK) :: err
9216 end function
9217#endif
9218
9219#if RK4_ENABLED
9220 module function QAGS_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9222 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK4
9223#endif
9224 use pm_kind, only: RKC => RK4
9225 procedure(real(RKC)) :: getFunc
9226 real(RKC) , intent(in) :: lb
9227 type(pinf_type) , intent(in) :: ub
9228 real(RKC) , intent(in) :: abstol
9229 real(RKC) , intent(in) :: reltol
9230 type(GK21_type) , intent(in) :: qrule
9231 type(weps_type) , intent(in) :: help
9232 real(RKC) , intent(out) :: integral, abserr
9233 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9234 integer(IK) , intent(out) , contiguous :: sindex(:)
9235 integer(IK) , intent(out) :: neval
9236 integer(IK) , intent(out) :: nint
9237 integer(IK) :: err
9238 end function
9239#endif
9240
9241#if RK3_ENABLED
9242 module function QAGS_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9244 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK3
9245#endif
9246 use pm_kind, only: RKC => RK3
9247 procedure(real(RKC)) :: getFunc
9248 real(RKC) , intent(in) :: lb
9249 type(pinf_type) , intent(in) :: ub
9250 real(RKC) , intent(in) :: abstol
9251 real(RKC) , intent(in) :: reltol
9252 type(GK21_type) , intent(in) :: qrule
9253 type(weps_type) , intent(in) :: help
9254 real(RKC) , intent(out) :: integral, abserr
9255 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9256 integer(IK) , intent(out) , contiguous :: sindex(:)
9257 integer(IK) , intent(out) :: neval
9258 integer(IK) , intent(out) :: nint
9259 integer(IK) :: err
9260 end function
9261#endif
9262
9263#if RK2_ENABLED
9264 module function QAGS_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9266 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK2
9267#endif
9268 use pm_kind, only: RKC => RK2
9269 procedure(real(RKC)) :: getFunc
9270 real(RKC) , intent(in) :: lb
9271 type(pinf_type) , intent(in) :: ub
9272 real(RKC) , intent(in) :: abstol
9273 real(RKC) , intent(in) :: reltol
9274 type(GK21_type) , intent(in) :: qrule
9275 type(weps_type) , intent(in) :: help
9276 real(RKC) , intent(out) :: integral, abserr
9277 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9278 integer(IK) , intent(out) , contiguous :: sindex(:)
9279 integer(IK) , intent(out) :: neval
9280 integer(IK) , intent(out) :: nint
9281 integer(IK) :: err
9282 end function
9283#endif
9284
9285#if RK1_ENABLED
9286 module function QAGS_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9288 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK1
9289#endif
9290 use pm_kind, only: RKC => RK1
9291 procedure(real(RKC)) :: getFunc
9292 real(RKC) , intent(in) :: lb
9293 type(pinf_type) , intent(in) :: ub
9294 real(RKC) , intent(in) :: abstol
9295 real(RKC) , intent(in) :: reltol
9296 type(GK21_type) , intent(in) :: qrule
9297 type(weps_type) , intent(in) :: help
9298 real(RKC) , intent(out) :: integral, abserr
9299 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9300 integer(IK) , intent(out) , contiguous :: sindex(:)
9301 integer(IK) , intent(out) :: neval
9302 integer(IK) , intent(out) :: nint
9303 integer(IK) :: err
9304 end function
9305#endif
9306
9307 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9308
9309#if RK5_ENABLED
9310 module function QAGS_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9312 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK5
9313#endif
9314 use pm_kind, only: RKC => RK5
9315 procedure(real(RKC)) :: getFunc
9316 type(ninf_type) , intent(in) :: lb
9317 real(RKC) , intent(in) :: ub
9318 real(RKC) , intent(in) :: abstol
9319 real(RKC) , intent(in) :: reltol
9320 type(GK21_type) , intent(in) :: qrule
9321 type(weps_type) , intent(in) :: help
9322 real(RKC) , intent(out) :: integral, abserr
9323 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9324 integer(IK) , intent(out) , contiguous :: sindex(:)
9325 integer(IK) , intent(out) :: neval
9326 integer(IK) , intent(out) :: nint
9327 integer(IK) :: err
9328 end function
9329#endif
9330
9331#if RK4_ENABLED
9332 module function QAGS_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9334 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK4
9335#endif
9336 use pm_kind, only: RKC => RK4
9337 procedure(real(RKC)) :: getFunc
9338 type(ninf_type) , intent(in) :: lb
9339 real(RKC) , intent(in) :: ub
9340 real(RKC) , intent(in) :: abstol
9341 real(RKC) , intent(in) :: reltol
9342 type(GK21_type) , intent(in) :: qrule
9343 type(weps_type) , intent(in) :: help
9344 real(RKC) , intent(out) :: integral, abserr
9345 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9346 integer(IK) , intent(out) , contiguous :: sindex(:)
9347 integer(IK) , intent(out) :: neval
9348 integer(IK) , intent(out) :: nint
9349 integer(IK) :: err
9350 end function
9351#endif
9352
9353#if RK3_ENABLED
9354 module function QAGS_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9356 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK3
9357#endif
9358 use pm_kind, only: RKC => RK3
9359 procedure(real(RKC)) :: getFunc
9360 type(ninf_type) , intent(in) :: lb
9361 real(RKC) , intent(in) :: ub
9362 real(RKC) , intent(in) :: abstol
9363 real(RKC) , intent(in) :: reltol
9364 type(GK21_type) , intent(in) :: qrule
9365 type(weps_type) , intent(in) :: help
9366 real(RKC) , intent(out) :: integral, abserr
9367 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9368 integer(IK) , intent(out) , contiguous :: sindex(:)
9369 integer(IK) , intent(out) :: neval
9370 integer(IK) , intent(out) :: nint
9371 integer(IK) :: err
9372 end function
9373#endif
9374
9375#if RK2_ENABLED
9376 module function QAGS_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9378 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK2
9379#endif
9380 use pm_kind, only: RKC => RK2
9381 procedure(real(RKC)) :: getFunc
9382 type(ninf_type) , intent(in) :: lb
9383 real(RKC) , intent(in) :: ub
9384 real(RKC) , intent(in) :: abstol
9385 real(RKC) , intent(in) :: reltol
9386 type(GK21_type) , intent(in) :: qrule
9387 type(weps_type) , intent(in) :: help
9388 real(RKC) , intent(out) :: integral, abserr
9389 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9390 integer(IK) , intent(out) , contiguous :: sindex(:)
9391 integer(IK) , intent(out) :: neval
9392 integer(IK) , intent(out) :: nint
9393 integer(IK) :: err
9394 end function
9395#endif
9396
9397#if RK1_ENABLED
9398 module function QAGS_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9400 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK1
9401#endif
9402 use pm_kind, only: RKC => RK1
9403 procedure(real(RKC)) :: getFunc
9404 type(ninf_type) , intent(in) :: lb
9405 real(RKC) , intent(in) :: ub
9406 real(RKC) , intent(in) :: abstol
9407 real(RKC) , intent(in) :: reltol
9408 type(GK21_type) , intent(in) :: qrule
9409 type(weps_type) , intent(in) :: help
9410 real(RKC) , intent(out) :: integral, abserr
9411 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9412 integer(IK) , intent(out) , contiguous :: sindex(:)
9413 integer(IK) , intent(out) :: neval
9414 integer(IK) , intent(out) :: nint
9415 integer(IK) :: err
9416 end function
9417#endif
9418
9419 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9420
9421#if RK5_ENABLED
9422 module function QAGS_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9424 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK5
9425#endif
9426 use pm_kind, only: RKC => RK5
9427 procedure(real(RKC)) :: getFunc
9428 type(ninf_type) , intent(in) :: lb
9429 type(pinf_type) , intent(in) :: ub
9430 real(RKC) , intent(in) :: abstol
9431 real(RKC) , intent(in) :: reltol
9432 type(GK21_type) , intent(in) :: qrule
9433 type(weps_type) , intent(in) :: help
9434 real(RKC) , intent(out) :: integral, abserr
9435 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9436 integer(IK) , intent(out) , contiguous :: sindex(:)
9437 integer(IK) , intent(out) :: neval
9438 integer(IK) , intent(out) :: nint
9439 integer(IK) :: err
9440 end function
9441#endif
9442
9443#if RK4_ENABLED
9444 module function QAGS_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9446 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK4
9447#endif
9448 use pm_kind, only: RKC => RK4
9449 procedure(real(RKC)) :: getFunc
9450 type(ninf_type) , intent(in) :: lb
9451 type(pinf_type) , intent(in) :: ub
9452 real(RKC) , intent(in) :: abstol
9453 real(RKC) , intent(in) :: reltol
9454 type(GK21_type) , intent(in) :: qrule
9455 type(weps_type) , intent(in) :: help
9456 real(RKC) , intent(out) :: integral, abserr
9457 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9458 integer(IK) , intent(out) , contiguous :: sindex(:)
9459 integer(IK) , intent(out) :: neval
9460 integer(IK) , intent(out) :: nint
9461 integer(IK) :: err
9462 end function
9463#endif
9464
9465#if RK3_ENABLED
9466 module function QAGS_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9468 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK3
9469#endif
9470 use pm_kind, only: RKC => RK3
9471 procedure(real(RKC)) :: getFunc
9472 type(ninf_type) , intent(in) :: lb
9473 type(pinf_type) , intent(in) :: ub
9474 real(RKC) , intent(in) :: abstol
9475 real(RKC) , intent(in) :: reltol
9476 type(GK21_type) , intent(in) :: qrule
9477 type(weps_type) , intent(in) :: help
9478 real(RKC) , intent(out) :: integral, abserr
9479 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9480 integer(IK) , intent(out) , contiguous :: sindex(:)
9481 integer(IK) , intent(out) :: neval
9482 integer(IK) , intent(out) :: nint
9483 integer(IK) :: err
9484 end function
9485#endif
9486
9487#if RK2_ENABLED
9488 module function QAGS_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9490 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK2
9491#endif
9492 use pm_kind, only: RKC => RK2
9493 procedure(real(RKC)) :: getFunc
9494 type(ninf_type) , intent(in) :: lb
9495 type(pinf_type) , intent(in) :: ub
9496 real(RKC) , intent(in) :: abstol
9497 real(RKC) , intent(in) :: reltol
9498 type(GK21_type) , intent(in) :: qrule
9499 type(weps_type) , intent(in) :: help
9500 real(RKC) , intent(out) :: integral, abserr
9501 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9502 integer(IK) , intent(out) , contiguous :: sindex(:)
9503 integer(IK) , intent(out) :: neval
9504 integer(IK) , intent(out) :: nint
9505 integer(IK) :: err
9506 end function
9507#endif
9508
9509#if RK1_ENABLED
9510 module function QAGS_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9512 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK1
9513#endif
9514 use pm_kind, only: RKC => RK1
9515 procedure(real(RKC)) :: getFunc
9516 type(ninf_type) , intent(in) :: lb
9517 type(pinf_type) , intent(in) :: ub
9518 real(RKC) , intent(in) :: abstol
9519 real(RKC) , intent(in) :: reltol
9520 type(GK21_type) , intent(in) :: qrule
9521 type(weps_type) , intent(in) :: help
9522 real(RKC) , intent(out) :: integral, abserr
9523 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9524 integer(IK) , intent(out) , contiguous :: sindex(:)
9525 integer(IK) , intent(out) :: neval
9526 integer(IK) , intent(out) :: nint
9527 integer(IK) :: err
9528 end function
9529#endif
9530
9531 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9532
9533 end interface
9534
9535 ! QAGS_GK31
9536
9537 interface getQuadErr
9538
9539 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9540
9541#if RK5_ENABLED
9542 module function QAGS_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9544 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK5
9545#endif
9546 use pm_kind, only: RKC => RK5
9547 procedure(real(RKC)) :: getFunc
9548 real(RKC) , intent(in) :: lb
9549 real(RKC) , intent(in) :: ub
9550 real(RKC) , intent(in) :: abstol
9551 real(RKC) , intent(in) :: reltol
9552 type(GK31_type) , intent(in) :: qrule
9553 type(weps_type) , intent(in) :: help
9554 real(RKC) , intent(out) :: integral, abserr
9555 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9556 integer(IK) , intent(out) , contiguous :: sindex(:)
9557 integer(IK) , intent(out) :: neval
9558 integer(IK) , intent(out) :: nint
9559 integer(IK) :: err
9560 end function
9561#endif
9562
9563#if RK4_ENABLED
9564 module function QAGS_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9566 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK4
9567#endif
9568 use pm_kind, only: RKC => RK4
9569 procedure(real(RKC)) :: getFunc
9570 real(RKC) , intent(in) :: lb
9571 real(RKC) , intent(in) :: ub
9572 real(RKC) , intent(in) :: abstol
9573 real(RKC) , intent(in) :: reltol
9574 type(GK31_type) , intent(in) :: qrule
9575 type(weps_type) , intent(in) :: help
9576 real(RKC) , intent(out) :: integral, abserr
9577 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9578 integer(IK) , intent(out) , contiguous :: sindex(:)
9579 integer(IK) , intent(out) :: neval
9580 integer(IK) , intent(out) :: nint
9581 integer(IK) :: err
9582 end function
9583#endif
9584
9585#if RK3_ENABLED
9586 module function QAGS_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9588 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK3
9589#endif
9590 use pm_kind, only: RKC => RK3
9591 procedure(real(RKC)) :: getFunc
9592 real(RKC) , intent(in) :: lb
9593 real(RKC) , intent(in) :: ub
9594 real(RKC) , intent(in) :: abstol
9595 real(RKC) , intent(in) :: reltol
9596 type(GK31_type) , intent(in) :: qrule
9597 type(weps_type) , intent(in) :: help
9598 real(RKC) , intent(out) :: integral, abserr
9599 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9600 integer(IK) , intent(out) , contiguous :: sindex(:)
9601 integer(IK) , intent(out) :: neval
9602 integer(IK) , intent(out) :: nint
9603 integer(IK) :: err
9604 end function
9605#endif
9606
9607#if RK2_ENABLED
9608 module function QAGS_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9610 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK2
9611#endif
9612 use pm_kind, only: RKC => RK2
9613 procedure(real(RKC)) :: getFunc
9614 real(RKC) , intent(in) :: lb
9615 real(RKC) , intent(in) :: ub
9616 real(RKC) , intent(in) :: abstol
9617 real(RKC) , intent(in) :: reltol
9618 type(GK31_type) , intent(in) :: qrule
9619 type(weps_type) , intent(in) :: help
9620 real(RKC) , intent(out) :: integral, abserr
9621 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9622 integer(IK) , intent(out) , contiguous :: sindex(:)
9623 integer(IK) , intent(out) :: neval
9624 integer(IK) , intent(out) :: nint
9625 integer(IK) :: err
9626 end function
9627#endif
9628
9629#if RK1_ENABLED
9630 module function QAGS_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9631#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9632 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK1
9633#endif
9634 use pm_kind, only: RKC => RK1
9635 procedure(real(RKC)) :: getFunc
9636 real(RKC) , intent(in) :: lb
9637 real(RKC) , intent(in) :: ub
9638 real(RKC) , intent(in) :: abstol
9639 real(RKC) , intent(in) :: reltol
9640 type(GK31_type) , intent(in) :: qrule
9641 type(weps_type) , intent(in) :: help
9642 real(RKC) , intent(out) :: integral, abserr
9643 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9644 integer(IK) , intent(out) , contiguous :: sindex(:)
9645 integer(IK) , intent(out) :: neval
9646 integer(IK) , intent(out) :: nint
9647 integer(IK) :: err
9648 end function
9649#endif
9650
9651 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9652
9653#if RK5_ENABLED
9654 module function QAGS_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9655#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9656 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK5
9657#endif
9658 use pm_kind, only: RKC => RK5
9659 procedure(real(RKC)) :: getFunc
9660 real(RKC) , intent(in) :: lb
9661 type(pinf_type) , intent(in) :: ub
9662 real(RKC) , intent(in) :: abstol
9663 real(RKC) , intent(in) :: reltol
9664 type(GK31_type) , intent(in) :: qrule
9665 type(weps_type) , intent(in) :: help
9666 real(RKC) , intent(out) :: integral, abserr
9667 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9668 integer(IK) , intent(out) , contiguous :: sindex(:)
9669 integer(IK) , intent(out) :: neval
9670 integer(IK) , intent(out) :: nint
9671 integer(IK) :: err
9672 end function
9673#endif
9674
9675#if RK4_ENABLED
9676 module function QAGS_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9678 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK4
9679#endif
9680 use pm_kind, only: RKC => RK4
9681 procedure(real(RKC)) :: getFunc
9682 real(RKC) , intent(in) :: lb
9683 type(pinf_type) , intent(in) :: ub
9684 real(RKC) , intent(in) :: abstol
9685 real(RKC) , intent(in) :: reltol
9686 type(GK31_type) , intent(in) :: qrule
9687 type(weps_type) , intent(in) :: help
9688 real(RKC) , intent(out) :: integral, abserr
9689 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9690 integer(IK) , intent(out) , contiguous :: sindex(:)
9691 integer(IK) , intent(out) :: neval
9692 integer(IK) , intent(out) :: nint
9693 integer(IK) :: err
9694 end function
9695#endif
9696
9697#if RK3_ENABLED
9698 module function QAGS_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9700 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK3
9701#endif
9702 use pm_kind, only: RKC => RK3
9703 procedure(real(RKC)) :: getFunc
9704 real(RKC) , intent(in) :: lb
9705 type(pinf_type) , intent(in) :: ub
9706 real(RKC) , intent(in) :: abstol
9707 real(RKC) , intent(in) :: reltol
9708 type(GK31_type) , intent(in) :: qrule
9709 type(weps_type) , intent(in) :: help
9710 real(RKC) , intent(out) :: integral, abserr
9711 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9712 integer(IK) , intent(out) , contiguous :: sindex(:)
9713 integer(IK) , intent(out) :: neval
9714 integer(IK) , intent(out) :: nint
9715 integer(IK) :: err
9716 end function
9717#endif
9718
9719#if RK2_ENABLED
9720 module function QAGS_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9722 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK2
9723#endif
9724 use pm_kind, only: RKC => RK2
9725 procedure(real(RKC)) :: getFunc
9726 real(RKC) , intent(in) :: lb
9727 type(pinf_type) , intent(in) :: ub
9728 real(RKC) , intent(in) :: abstol
9729 real(RKC) , intent(in) :: reltol
9730 type(GK31_type) , intent(in) :: qrule
9731 type(weps_type) , intent(in) :: help
9732 real(RKC) , intent(out) :: integral, abserr
9733 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9734 integer(IK) , intent(out) , contiguous :: sindex(:)
9735 integer(IK) , intent(out) :: neval
9736 integer(IK) , intent(out) :: nint
9737 integer(IK) :: err
9738 end function
9739#endif
9740
9741#if RK1_ENABLED
9742 module function QAGS_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9744 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK1
9745#endif
9746 use pm_kind, only: RKC => RK1
9747 procedure(real(RKC)) :: getFunc
9748 real(RKC) , intent(in) :: lb
9749 type(pinf_type) , intent(in) :: ub
9750 real(RKC) , intent(in) :: abstol
9751 real(RKC) , intent(in) :: reltol
9752 type(GK31_type) , intent(in) :: qrule
9753 type(weps_type) , intent(in) :: help
9754 real(RKC) , intent(out) :: integral, abserr
9755 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9756 integer(IK) , intent(out) , contiguous :: sindex(:)
9757 integer(IK) , intent(out) :: neval
9758 integer(IK) , intent(out) :: nint
9759 integer(IK) :: err
9760 end function
9761#endif
9762
9763 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9764
9765#if RK5_ENABLED
9766 module function QAGS_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9768 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK5
9769#endif
9770 use pm_kind, only: RKC => RK5
9771 procedure(real(RKC)) :: getFunc
9772 type(ninf_type) , intent(in) :: lb
9773 real(RKC) , intent(in) :: ub
9774 real(RKC) , intent(in) :: abstol
9775 real(RKC) , intent(in) :: reltol
9776 type(GK31_type) , intent(in) :: qrule
9777 type(weps_type) , intent(in) :: help
9778 real(RKC) , intent(out) :: integral, abserr
9779 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9780 integer(IK) , intent(out) , contiguous :: sindex(:)
9781 integer(IK) , intent(out) :: neval
9782 integer(IK) , intent(out) :: nint
9783 integer(IK) :: err
9784 end function
9785#endif
9786
9787#if RK4_ENABLED
9788 module function QAGS_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9790 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK4
9791#endif
9792 use pm_kind, only: RKC => RK4
9793 procedure(real(RKC)) :: getFunc
9794 type(ninf_type) , intent(in) :: lb
9795 real(RKC) , intent(in) :: ub
9796 real(RKC) , intent(in) :: abstol
9797 real(RKC) , intent(in) :: reltol
9798 type(GK31_type) , intent(in) :: qrule
9799 type(weps_type) , intent(in) :: help
9800 real(RKC) , intent(out) :: integral, abserr
9801 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9802 integer(IK) , intent(out) , contiguous :: sindex(:)
9803 integer(IK) , intent(out) :: neval
9804 integer(IK) , intent(out) :: nint
9805 integer(IK) :: err
9806 end function
9807#endif
9808
9809#if RK3_ENABLED
9810 module function QAGS_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9812 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK3
9813#endif
9814 use pm_kind, only: RKC => RK3
9815 procedure(real(RKC)) :: getFunc
9816 type(ninf_type) , intent(in) :: lb
9817 real(RKC) , intent(in) :: ub
9818 real(RKC) , intent(in) :: abstol
9819 real(RKC) , intent(in) :: reltol
9820 type(GK31_type) , intent(in) :: qrule
9821 type(weps_type) , intent(in) :: help
9822 real(RKC) , intent(out) :: integral, abserr
9823 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9824 integer(IK) , intent(out) , contiguous :: sindex(:)
9825 integer(IK) , intent(out) :: neval
9826 integer(IK) , intent(out) :: nint
9827 integer(IK) :: err
9828 end function
9829#endif
9830
9831#if RK2_ENABLED
9832 module function QAGS_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9834 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK2
9835#endif
9836 use pm_kind, only: RKC => RK2
9837 procedure(real(RKC)) :: getFunc
9838 type(ninf_type) , intent(in) :: lb
9839 real(RKC) , intent(in) :: ub
9840 real(RKC) , intent(in) :: abstol
9841 real(RKC) , intent(in) :: reltol
9842 type(GK31_type) , intent(in) :: qrule
9843 type(weps_type) , intent(in) :: help
9844 real(RKC) , intent(out) :: integral, abserr
9845 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9846 integer(IK) , intent(out) , contiguous :: sindex(:)
9847 integer(IK) , intent(out) :: neval
9848 integer(IK) , intent(out) :: nint
9849 integer(IK) :: err
9850 end function
9851#endif
9852
9853#if RK1_ENABLED
9854 module function QAGS_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9856 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK1
9857#endif
9858 use pm_kind, only: RKC => RK1
9859 procedure(real(RKC)) :: getFunc
9860 type(ninf_type) , intent(in) :: lb
9861 real(RKC) , intent(in) :: ub
9862 real(RKC) , intent(in) :: abstol
9863 real(RKC) , intent(in) :: reltol
9864 type(GK31_type) , intent(in) :: qrule
9865 type(weps_type) , intent(in) :: help
9866 real(RKC) , intent(out) :: integral, abserr
9867 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9868 integer(IK) , intent(out) , contiguous :: sindex(:)
9869 integer(IK) , intent(out) :: neval
9870 integer(IK) , intent(out) :: nint
9871 integer(IK) :: err
9872 end function
9873#endif
9874
9875 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9876
9877#if RK5_ENABLED
9878 module function QAGS_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9880 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK5
9881#endif
9882 use pm_kind, only: RKC => RK5
9883 procedure(real(RKC)) :: getFunc
9884 type(ninf_type) , intent(in) :: lb
9885 type(pinf_type) , intent(in) :: ub
9886 real(RKC) , intent(in) :: abstol
9887 real(RKC) , intent(in) :: reltol
9888 type(GK31_type) , intent(in) :: qrule
9889 type(weps_type) , intent(in) :: help
9890 real(RKC) , intent(out) :: integral, abserr
9891 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9892 integer(IK) , intent(out) , contiguous :: sindex(:)
9893 integer(IK) , intent(out) :: neval
9894 integer(IK) , intent(out) :: nint
9895 integer(IK) :: err
9896 end function
9897#endif
9898
9899#if RK4_ENABLED
9900 module function QAGS_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9902 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK4
9903#endif
9904 use pm_kind, only: RKC => RK4
9905 procedure(real(RKC)) :: getFunc
9906 type(ninf_type) , intent(in) :: lb
9907 type(pinf_type) , intent(in) :: ub
9908 real(RKC) , intent(in) :: abstol
9909 real(RKC) , intent(in) :: reltol
9910 type(GK31_type) , intent(in) :: qrule
9911 type(weps_type) , intent(in) :: help
9912 real(RKC) , intent(out) :: integral, abserr
9913 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9914 integer(IK) , intent(out) , contiguous :: sindex(:)
9915 integer(IK) , intent(out) :: neval
9916 integer(IK) , intent(out) :: nint
9917 integer(IK) :: err
9918 end function
9919#endif
9920
9921#if RK3_ENABLED
9922 module function QAGS_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9924 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK3
9925#endif
9926 use pm_kind, only: RKC => RK3
9927 procedure(real(RKC)) :: getFunc
9928 type(ninf_type) , intent(in) :: lb
9929 type(pinf_type) , intent(in) :: ub
9930 real(RKC) , intent(in) :: abstol
9931 real(RKC) , intent(in) :: reltol
9932 type(GK31_type) , intent(in) :: qrule
9933 type(weps_type) , intent(in) :: help
9934 real(RKC) , intent(out) :: integral, abserr
9935 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9936 integer(IK) , intent(out) , contiguous :: sindex(:)
9937 integer(IK) , intent(out) :: neval
9938 integer(IK) , intent(out) :: nint
9939 integer(IK) :: err
9940 end function
9941#endif
9942
9943#if RK2_ENABLED
9944 module function QAGS_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9946 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK2
9947#endif
9948 use pm_kind, only: RKC => RK2
9949 procedure(real(RKC)) :: getFunc
9950 type(ninf_type) , intent(in) :: lb
9951 type(pinf_type) , intent(in) :: ub
9952 real(RKC) , intent(in) :: abstol
9953 real(RKC) , intent(in) :: reltol
9954 type(GK31_type) , intent(in) :: qrule
9955 type(weps_type) , intent(in) :: help
9956 real(RKC) , intent(out) :: integral, abserr
9957 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9958 integer(IK) , intent(out) , contiguous :: sindex(:)
9959 integer(IK) , intent(out) :: neval
9960 integer(IK) , intent(out) :: nint
9961 integer(IK) :: err
9962 end function
9963#endif
9964
9965#if RK1_ENABLED
9966 module function QAGS_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9968 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK1
9969#endif
9970 use pm_kind, only: RKC => RK1
9971 procedure(real(RKC)) :: getFunc
9972 type(ninf_type) , intent(in) :: lb
9973 type(pinf_type) , intent(in) :: ub
9974 real(RKC) , intent(in) :: abstol
9975 real(RKC) , intent(in) :: reltol
9976 type(GK31_type) , intent(in) :: qrule
9977 type(weps_type) , intent(in) :: help
9978 real(RKC) , intent(out) :: integral, abserr
9979 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9980 integer(IK) , intent(out) , contiguous :: sindex(:)
9981 integer(IK) , intent(out) :: neval
9982 integer(IK) , intent(out) :: nint
9983 integer(IK) :: err
9984 end function
9985#endif
9986
9987 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9988
9989 end interface
9990
9991 ! QAGS_GK41
9992
9993 interface getQuadErr
9994
9995 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9996
9997#if RK5_ENABLED
9998 module function QAGS_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10000 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK5
10001#endif
10002 use pm_kind, only: RKC => RK5
10003 procedure(real(RKC)) :: getFunc
10004 real(RKC) , intent(in) :: lb
10005 real(RKC) , intent(in) :: ub
10006 real(RKC) , intent(in) :: abstol
10007 real(RKC) , intent(in) :: reltol
10008 type(GK41_type) , intent(in) :: qrule
10009 type(weps_type) , intent(in) :: help
10010 real(RKC) , intent(out) :: integral, abserr
10011 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10012 integer(IK) , intent(out) , contiguous :: sindex(:)
10013 integer(IK) , intent(out) :: neval
10014 integer(IK) , intent(out) :: nint
10015 integer(IK) :: err
10016 end function
10017#endif
10018
10019#if RK4_ENABLED
10020 module function QAGS_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10022 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK4
10023#endif
10024 use pm_kind, only: RKC => RK4
10025 procedure(real(RKC)) :: getFunc
10026 real(RKC) , intent(in) :: lb
10027 real(RKC) , intent(in) :: ub
10028 real(RKC) , intent(in) :: abstol
10029 real(RKC) , intent(in) :: reltol
10030 type(GK41_type) , intent(in) :: qrule
10031 type(weps_type) , intent(in) :: help
10032 real(RKC) , intent(out) :: integral, abserr
10033 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10034 integer(IK) , intent(out) , contiguous :: sindex(:)
10035 integer(IK) , intent(out) :: neval
10036 integer(IK) , intent(out) :: nint
10037 integer(IK) :: err
10038 end function
10039#endif
10040
10041#if RK3_ENABLED
10042 module function QAGS_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10044 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK3
10045#endif
10046 use pm_kind, only: RKC => RK3
10047 procedure(real(RKC)) :: getFunc
10048 real(RKC) , intent(in) :: lb
10049 real(RKC) , intent(in) :: ub
10050 real(RKC) , intent(in) :: abstol
10051 real(RKC) , intent(in) :: reltol
10052 type(GK41_type) , intent(in) :: qrule
10053 type(weps_type) , intent(in) :: help
10054 real(RKC) , intent(out) :: integral, abserr
10055 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10056 integer(IK) , intent(out) , contiguous :: sindex(:)
10057 integer(IK) , intent(out) :: neval
10058 integer(IK) , intent(out) :: nint
10059 integer(IK) :: err
10060 end function
10061#endif
10062
10063#if RK2_ENABLED
10064 module function QAGS_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10065#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10066 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK2
10067#endif
10068 use pm_kind, only: RKC => RK2
10069 procedure(real(RKC)) :: getFunc
10070 real(RKC) , intent(in) :: lb
10071 real(RKC) , intent(in) :: ub
10072 real(RKC) , intent(in) :: abstol
10073 real(RKC) , intent(in) :: reltol
10074 type(GK41_type) , intent(in) :: qrule
10075 type(weps_type) , intent(in) :: help
10076 real(RKC) , intent(out) :: integral, abserr
10077 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10078 integer(IK) , intent(out) , contiguous :: sindex(:)
10079 integer(IK) , intent(out) :: neval
10080 integer(IK) , intent(out) :: nint
10081 integer(IK) :: err
10082 end function
10083#endif
10084
10085#if RK1_ENABLED
10086 module function QAGS_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10087#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10088 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK1
10089#endif
10090 use pm_kind, only: RKC => RK1
10091 procedure(real(RKC)) :: getFunc
10092 real(RKC) , intent(in) :: lb
10093 real(RKC) , intent(in) :: ub
10094 real(RKC) , intent(in) :: abstol
10095 real(RKC) , intent(in) :: reltol
10096 type(GK41_type) , intent(in) :: qrule
10097 type(weps_type) , intent(in) :: help
10098 real(RKC) , intent(out) :: integral, abserr
10099 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10100 integer(IK) , intent(out) , contiguous :: sindex(:)
10101 integer(IK) , intent(out) :: neval
10102 integer(IK) , intent(out) :: nint
10103 integer(IK) :: err
10104 end function
10105#endif
10106
10107 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10108
10109#if RK5_ENABLED
10110 module function QAGS_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10112 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK5
10113#endif
10114 use pm_kind, only: RKC => RK5
10115 procedure(real(RKC)) :: getFunc
10116 real(RKC) , intent(in) :: lb
10117 type(pinf_type) , intent(in) :: ub
10118 real(RKC) , intent(in) :: abstol
10119 real(RKC) , intent(in) :: reltol
10120 type(GK41_type) , intent(in) :: qrule
10121 type(weps_type) , intent(in) :: help
10122 real(RKC) , intent(out) :: integral, abserr
10123 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10124 integer(IK) , intent(out) , contiguous :: sindex(:)
10125 integer(IK) , intent(out) :: neval
10126 integer(IK) , intent(out) :: nint
10127 integer(IK) :: err
10128 end function
10129#endif
10130
10131#if RK4_ENABLED
10132 module function QAGS_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10134 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK4
10135#endif
10136 use pm_kind, only: RKC => RK4
10137 procedure(real(RKC)) :: getFunc
10138 real(RKC) , intent(in) :: lb
10139 type(pinf_type) , intent(in) :: ub
10140 real(RKC) , intent(in) :: abstol
10141 real(RKC) , intent(in) :: reltol
10142 type(GK41_type) , intent(in) :: qrule
10143 type(weps_type) , intent(in) :: help
10144 real(RKC) , intent(out) :: integral, abserr
10145 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10146 integer(IK) , intent(out) , contiguous :: sindex(:)
10147 integer(IK) , intent(out) :: neval
10148 integer(IK) , intent(out) :: nint
10149 integer(IK) :: err
10150 end function
10151#endif
10152
10153#if RK3_ENABLED
10154 module function QAGS_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10156 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK3
10157#endif
10158 use pm_kind, only: RKC => RK3
10159 procedure(real(RKC)) :: getFunc
10160 real(RKC) , intent(in) :: lb
10161 type(pinf_type) , intent(in) :: ub
10162 real(RKC) , intent(in) :: abstol
10163 real(RKC) , intent(in) :: reltol
10164 type(GK41_type) , intent(in) :: qrule
10165 type(weps_type) , intent(in) :: help
10166 real(RKC) , intent(out) :: integral, abserr
10167 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10168 integer(IK) , intent(out) , contiguous :: sindex(:)
10169 integer(IK) , intent(out) :: neval
10170 integer(IK) , intent(out) :: nint
10171 integer(IK) :: err
10172 end function
10173#endif
10174
10175#if RK2_ENABLED
10176 module function QAGS_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10178 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK2
10179#endif
10180 use pm_kind, only: RKC => RK2
10181 procedure(real(RKC)) :: getFunc
10182 real(RKC) , intent(in) :: lb
10183 type(pinf_type) , intent(in) :: ub
10184 real(RKC) , intent(in) :: abstol
10185 real(RKC) , intent(in) :: reltol
10186 type(GK41_type) , intent(in) :: qrule
10187 type(weps_type) , intent(in) :: help
10188 real(RKC) , intent(out) :: integral, abserr
10189 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10190 integer(IK) , intent(out) , contiguous :: sindex(:)
10191 integer(IK) , intent(out) :: neval
10192 integer(IK) , intent(out) :: nint
10193 integer(IK) :: err
10194 end function
10195#endif
10196
10197#if RK1_ENABLED
10198 module function QAGS_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10200 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK1
10201#endif
10202 use pm_kind, only: RKC => RK1
10203 procedure(real(RKC)) :: getFunc
10204 real(RKC) , intent(in) :: lb
10205 type(pinf_type) , intent(in) :: ub
10206 real(RKC) , intent(in) :: abstol
10207 real(RKC) , intent(in) :: reltol
10208 type(GK41_type) , intent(in) :: qrule
10209 type(weps_type) , intent(in) :: help
10210 real(RKC) , intent(out) :: integral, abserr
10211 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10212 integer(IK) , intent(out) , contiguous :: sindex(:)
10213 integer(IK) , intent(out) :: neval
10214 integer(IK) , intent(out) :: nint
10215 integer(IK) :: err
10216 end function
10217#endif
10218
10219 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10220
10221#if RK5_ENABLED
10222 module function QAGS_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10224 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK5
10225#endif
10226 use pm_kind, only: RKC => RK5
10227 procedure(real(RKC)) :: getFunc
10228 type(ninf_type) , intent(in) :: lb
10229 real(RKC) , intent(in) :: ub
10230 real(RKC) , intent(in) :: abstol
10231 real(RKC) , intent(in) :: reltol
10232 type(GK41_type) , intent(in) :: qrule
10233 type(weps_type) , intent(in) :: help
10234 real(RKC) , intent(out) :: integral, abserr
10235 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10236 integer(IK) , intent(out) , contiguous :: sindex(:)
10237 integer(IK) , intent(out) :: neval
10238 integer(IK) , intent(out) :: nint
10239 integer(IK) :: err
10240 end function
10241#endif
10242
10243#if RK4_ENABLED
10244 module function QAGS_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10246 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK4
10247#endif
10248 use pm_kind, only: RKC => RK4
10249 procedure(real(RKC)) :: getFunc
10250 type(ninf_type) , intent(in) :: lb
10251 real(RKC) , intent(in) :: ub
10252 real(RKC) , intent(in) :: abstol
10253 real(RKC) , intent(in) :: reltol
10254 type(GK41_type) , intent(in) :: qrule
10255 type(weps_type) , intent(in) :: help
10256 real(RKC) , intent(out) :: integral, abserr
10257 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10258 integer(IK) , intent(out) , contiguous :: sindex(:)
10259 integer(IK) , intent(out) :: neval
10260 integer(IK) , intent(out) :: nint
10261 integer(IK) :: err
10262 end function
10263#endif
10264
10265#if RK3_ENABLED
10266 module function QAGS_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10268 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK3
10269#endif
10270 use pm_kind, only: RKC => RK3
10271 procedure(real(RKC)) :: getFunc
10272 type(ninf_type) , intent(in) :: lb
10273 real(RKC) , intent(in) :: ub
10274 real(RKC) , intent(in) :: abstol
10275 real(RKC) , intent(in) :: reltol
10276 type(GK41_type) , intent(in) :: qrule
10277 type(weps_type) , intent(in) :: help
10278 real(RKC) , intent(out) :: integral, abserr
10279 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10280 integer(IK) , intent(out) , contiguous :: sindex(:)
10281 integer(IK) , intent(out) :: neval
10282 integer(IK) , intent(out) :: nint
10283 integer(IK) :: err
10284 end function
10285#endif
10286
10287#if RK2_ENABLED
10288 module function QAGS_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10290 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK2
10291#endif
10292 use pm_kind, only: RKC => RK2
10293 procedure(real(RKC)) :: getFunc
10294 type(ninf_type) , intent(in) :: lb
10295 real(RKC) , intent(in) :: ub
10296 real(RKC) , intent(in) :: abstol
10297 real(RKC) , intent(in) :: reltol
10298 type(GK41_type) , intent(in) :: qrule
10299 type(weps_type) , intent(in) :: help
10300 real(RKC) , intent(out) :: integral, abserr
10301 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10302 integer(IK) , intent(out) , contiguous :: sindex(:)
10303 integer(IK) , intent(out) :: neval
10304 integer(IK) , intent(out) :: nint
10305 integer(IK) :: err
10306 end function
10307#endif
10308
10309#if RK1_ENABLED
10310 module function QAGS_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10312 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK1
10313#endif
10314 use pm_kind, only: RKC => RK1
10315 procedure(real(RKC)) :: getFunc
10316 type(ninf_type) , intent(in) :: lb
10317 real(RKC) , intent(in) :: ub
10318 real(RKC) , intent(in) :: abstol
10319 real(RKC) , intent(in) :: reltol
10320 type(GK41_type) , intent(in) :: qrule
10321 type(weps_type) , intent(in) :: help
10322 real(RKC) , intent(out) :: integral, abserr
10323 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10324 integer(IK) , intent(out) , contiguous :: sindex(:)
10325 integer(IK) , intent(out) :: neval
10326 integer(IK) , intent(out) :: nint
10327 integer(IK) :: err
10328 end function
10329#endif
10330
10331 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10332
10333#if RK5_ENABLED
10334 module function QAGS_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10336 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK5
10337#endif
10338 use pm_kind, only: RKC => RK5
10339 procedure(real(RKC)) :: getFunc
10340 type(ninf_type) , intent(in) :: lb
10341 type(pinf_type) , intent(in) :: ub
10342 real(RKC) , intent(in) :: abstol
10343 real(RKC) , intent(in) :: reltol
10344 type(GK41_type) , intent(in) :: qrule
10345 type(weps_type) , intent(in) :: help
10346 real(RKC) , intent(out) :: integral, abserr
10347 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10348 integer(IK) , intent(out) , contiguous :: sindex(:)
10349 integer(IK) , intent(out) :: neval
10350 integer(IK) , intent(out) :: nint
10351 integer(IK) :: err
10352 end function
10353#endif
10354
10355#if RK4_ENABLED
10356 module function QAGS_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10358 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK4
10359#endif
10360 use pm_kind, only: RKC => RK4
10361 procedure(real(RKC)) :: getFunc
10362 type(ninf_type) , intent(in) :: lb
10363 type(pinf_type) , intent(in) :: ub
10364 real(RKC) , intent(in) :: abstol
10365 real(RKC) , intent(in) :: reltol
10366 type(GK41_type) , intent(in) :: qrule
10367 type(weps_type) , intent(in) :: help
10368 real(RKC) , intent(out) :: integral, abserr
10369 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10370 integer(IK) , intent(out) , contiguous :: sindex(:)
10371 integer(IK) , intent(out) :: neval
10372 integer(IK) , intent(out) :: nint
10373 integer(IK) :: err
10374 end function
10375#endif
10376
10377#if RK3_ENABLED
10378 module function QAGS_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10380 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK3
10381#endif
10382 use pm_kind, only: RKC => RK3
10383 procedure(real(RKC)) :: getFunc
10384 type(ninf_type) , intent(in) :: lb
10385 type(pinf_type) , intent(in) :: ub
10386 real(RKC) , intent(in) :: abstol
10387 real(RKC) , intent(in) :: reltol
10388 type(GK41_type) , intent(in) :: qrule
10389 type(weps_type) , intent(in) :: help
10390 real(RKC) , intent(out) :: integral, abserr
10391 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10392 integer(IK) , intent(out) , contiguous :: sindex(:)
10393 integer(IK) , intent(out) :: neval
10394 integer(IK) , intent(out) :: nint
10395 integer(IK) :: err
10396 end function
10397#endif
10398
10399#if RK2_ENABLED
10400 module function QAGS_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10402 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK2
10403#endif
10404 use pm_kind, only: RKC => RK2
10405 procedure(real(RKC)) :: getFunc
10406 type(ninf_type) , intent(in) :: lb
10407 type(pinf_type) , intent(in) :: ub
10408 real(RKC) , intent(in) :: abstol
10409 real(RKC) , intent(in) :: reltol
10410 type(GK41_type) , intent(in) :: qrule
10411 type(weps_type) , intent(in) :: help
10412 real(RKC) , intent(out) :: integral, abserr
10413 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10414 integer(IK) , intent(out) , contiguous :: sindex(:)
10415 integer(IK) , intent(out) :: neval
10416 integer(IK) , intent(out) :: nint
10417 integer(IK) :: err
10418 end function
10419#endif
10420
10421#if RK1_ENABLED
10422 module function QAGS_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10424 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK1
10425#endif
10426 use pm_kind, only: RKC => RK1
10427 procedure(real(RKC)) :: getFunc
10428 type(ninf_type) , intent(in) :: lb
10429 type(pinf_type) , intent(in) :: ub
10430 real(RKC) , intent(in) :: abstol
10431 real(RKC) , intent(in) :: reltol
10432 type(GK41_type) , intent(in) :: qrule
10433 type(weps_type) , intent(in) :: help
10434 real(RKC) , intent(out) :: integral, abserr
10435 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10436 integer(IK) , intent(out) , contiguous :: sindex(:)
10437 integer(IK) , intent(out) :: neval
10438 integer(IK) , intent(out) :: nint
10439 integer(IK) :: err
10440 end function
10441#endif
10442
10443 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10444
10445 end interface
10446
10447 ! QAGS_GK51
10448
10449 interface getQuadErr
10450
10451 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10452
10453#if RK5_ENABLED
10454 module function QAGS_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10455#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10456 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK5
10457#endif
10458 use pm_kind, only: RKC => RK5
10459 procedure(real(RKC)) :: getFunc
10460 real(RKC) , intent(in) :: lb
10461 real(RKC) , intent(in) :: ub
10462 real(RKC) , intent(in) :: abstol
10463 real(RKC) , intent(in) :: reltol
10464 type(GK51_type) , intent(in) :: qrule
10465 type(weps_type) , intent(in) :: help
10466 real(RKC) , intent(out) :: integral, abserr
10467 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10468 integer(IK) , intent(out) , contiguous :: sindex(:)
10469 integer(IK) , intent(out) :: neval
10470 integer(IK) , intent(out) :: nint
10471 integer(IK) :: err
10472 end function
10473#endif
10474
10475#if RK4_ENABLED
10476 module function QAGS_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10478 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK4
10479#endif
10480 use pm_kind, only: RKC => RK4
10481 procedure(real(RKC)) :: getFunc
10482 real(RKC) , intent(in) :: lb
10483 real(RKC) , intent(in) :: ub
10484 real(RKC) , intent(in) :: abstol
10485 real(RKC) , intent(in) :: reltol
10486 type(GK51_type) , intent(in) :: qrule
10487 type(weps_type) , intent(in) :: help
10488 real(RKC) , intent(out) :: integral, abserr
10489 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10490 integer(IK) , intent(out) , contiguous :: sindex(:)
10491 integer(IK) , intent(out) :: neval
10492 integer(IK) , intent(out) :: nint
10493 integer(IK) :: err
10494 end function
10495#endif
10496
10497#if RK3_ENABLED
10498 module function QAGS_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10500 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK3
10501#endif
10502 use pm_kind, only: RKC => RK3
10503 procedure(real(RKC)) :: getFunc
10504 real(RKC) , intent(in) :: lb
10505 real(RKC) , intent(in) :: ub
10506 real(RKC) , intent(in) :: abstol
10507 real(RKC) , intent(in) :: reltol
10508 type(GK51_type) , intent(in) :: qrule
10509 type(weps_type) , intent(in) :: help
10510 real(RKC) , intent(out) :: integral, abserr
10511 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10512 integer(IK) , intent(out) , contiguous :: sindex(:)
10513 integer(IK) , intent(out) :: neval
10514 integer(IK) , intent(out) :: nint
10515 integer(IK) :: err
10516 end function
10517#endif
10518
10519#if RK2_ENABLED
10520 module function QAGS_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10522 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK2
10523#endif
10524 use pm_kind, only: RKC => RK2
10525 procedure(real(RKC)) :: getFunc
10526 real(RKC) , intent(in) :: lb
10527 real(RKC) , intent(in) :: ub
10528 real(RKC) , intent(in) :: abstol
10529 real(RKC) , intent(in) :: reltol
10530 type(GK51_type) , intent(in) :: qrule
10531 type(weps_type) , intent(in) :: help
10532 real(RKC) , intent(out) :: integral, abserr
10533 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10534 integer(IK) , intent(out) , contiguous :: sindex(:)
10535 integer(IK) , intent(out) :: neval
10536 integer(IK) , intent(out) :: nint
10537 integer(IK) :: err
10538 end function
10539#endif
10540
10541#if RK1_ENABLED
10542 module function QAGS_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10544 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK1
10545#endif
10546 use pm_kind, only: RKC => RK1
10547 procedure(real(RKC)) :: getFunc
10548 real(RKC) , intent(in) :: lb
10549 real(RKC) , intent(in) :: ub
10550 real(RKC) , intent(in) :: abstol
10551 real(RKC) , intent(in) :: reltol
10552 type(GK51_type) , intent(in) :: qrule
10553 type(weps_type) , intent(in) :: help
10554 real(RKC) , intent(out) :: integral, abserr
10555 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10556 integer(IK) , intent(out) , contiguous :: sindex(:)
10557 integer(IK) , intent(out) :: neval
10558 integer(IK) , intent(out) :: nint
10559 integer(IK) :: err
10560 end function
10561#endif
10562
10563 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10564
10565#if RK5_ENABLED
10566 module function QAGS_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10568 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK5
10569#endif
10570 use pm_kind, only: RKC => RK5
10571 procedure(real(RKC)) :: getFunc
10572 real(RKC) , intent(in) :: lb
10573 type(pinf_type) , intent(in) :: ub
10574 real(RKC) , intent(in) :: abstol
10575 real(RKC) , intent(in) :: reltol
10576 type(GK51_type) , intent(in) :: qrule
10577 type(weps_type) , intent(in) :: help
10578 real(RKC) , intent(out) :: integral, abserr
10579 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10580 integer(IK) , intent(out) , contiguous :: sindex(:)
10581 integer(IK) , intent(out) :: neval
10582 integer(IK) , intent(out) :: nint
10583 integer(IK) :: err
10584 end function
10585#endif
10586
10587#if RK4_ENABLED
10588 module function QAGS_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10590 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK4
10591#endif
10592 use pm_kind, only: RKC => RK4
10593 procedure(real(RKC)) :: getFunc
10594 real(RKC) , intent(in) :: lb
10595 type(pinf_type) , intent(in) :: ub
10596 real(RKC) , intent(in) :: abstol
10597 real(RKC) , intent(in) :: reltol
10598 type(GK51_type) , intent(in) :: qrule
10599 type(weps_type) , intent(in) :: help
10600 real(RKC) , intent(out) :: integral, abserr
10601 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10602 integer(IK) , intent(out) , contiguous :: sindex(:)
10603 integer(IK) , intent(out) :: neval
10604 integer(IK) , intent(out) :: nint
10605 integer(IK) :: err
10606 end function
10607#endif
10608
10609#if RK3_ENABLED
10610 module function QAGS_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10612 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK3
10613#endif
10614 use pm_kind, only: RKC => RK3
10615 procedure(real(RKC)) :: getFunc
10616 real(RKC) , intent(in) :: lb
10617 type(pinf_type) , intent(in) :: ub
10618 real(RKC) , intent(in) :: abstol
10619 real(RKC) , intent(in) :: reltol
10620 type(GK51_type) , intent(in) :: qrule
10621 type(weps_type) , intent(in) :: help
10622 real(RKC) , intent(out) :: integral, abserr
10623 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10624 integer(IK) , intent(out) , contiguous :: sindex(:)
10625 integer(IK) , intent(out) :: neval
10626 integer(IK) , intent(out) :: nint
10627 integer(IK) :: err
10628 end function
10629#endif
10630
10631#if RK2_ENABLED
10632 module function QAGS_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10634 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK2
10635#endif
10636 use pm_kind, only: RKC => RK2
10637 procedure(real(RKC)) :: getFunc
10638 real(RKC) , intent(in) :: lb
10639 type(pinf_type) , intent(in) :: ub
10640 real(RKC) , intent(in) :: abstol
10641 real(RKC) , intent(in) :: reltol
10642 type(GK51_type) , intent(in) :: qrule
10643 type(weps_type) , intent(in) :: help
10644 real(RKC) , intent(out) :: integral, abserr
10645 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10646 integer(IK) , intent(out) , contiguous :: sindex(:)
10647 integer(IK) , intent(out) :: neval
10648 integer(IK) , intent(out) :: nint
10649 integer(IK) :: err
10650 end function
10651#endif
10652
10653#if RK1_ENABLED
10654 module function QAGS_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10655#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10656 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK1
10657#endif
10658 use pm_kind, only: RKC => RK1
10659 procedure(real(RKC)) :: getFunc
10660 real(RKC) , intent(in) :: lb
10661 type(pinf_type) , intent(in) :: ub
10662 real(RKC) , intent(in) :: abstol
10663 real(RKC) , intent(in) :: reltol
10664 type(GK51_type) , intent(in) :: qrule
10665 type(weps_type) , intent(in) :: help
10666 real(RKC) , intent(out) :: integral, abserr
10667 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10668 integer(IK) , intent(out) , contiguous :: sindex(:)
10669 integer(IK) , intent(out) :: neval
10670 integer(IK) , intent(out) :: nint
10671 integer(IK) :: err
10672 end function
10673#endif
10674
10675 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10676
10677#if RK5_ENABLED
10678 module function QAGS_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10680 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK5
10681#endif
10682 use pm_kind, only: RKC => RK5
10683 procedure(real(RKC)) :: getFunc
10684 type(ninf_type) , intent(in) :: lb
10685 real(RKC) , intent(in) :: ub
10686 real(RKC) , intent(in) :: abstol
10687 real(RKC) , intent(in) :: reltol
10688 type(GK51_type) , intent(in) :: qrule
10689 type(weps_type) , intent(in) :: help
10690 real(RKC) , intent(out) :: integral, abserr
10691 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10692 integer(IK) , intent(out) , contiguous :: sindex(:)
10693 integer(IK) , intent(out) :: neval
10694 integer(IK) , intent(out) :: nint
10695 integer(IK) :: err
10696 end function
10697#endif
10698
10699#if RK4_ENABLED
10700 module function QAGS_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10702 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK4
10703#endif
10704 use pm_kind, only: RKC => RK4
10705 procedure(real(RKC)) :: getFunc
10706 type(ninf_type) , intent(in) :: lb
10707 real(RKC) , intent(in) :: ub
10708 real(RKC) , intent(in) :: abstol
10709 real(RKC) , intent(in) :: reltol
10710 type(GK51_type) , intent(in) :: qrule
10711 type(weps_type) , intent(in) :: help
10712 real(RKC) , intent(out) :: integral, abserr
10713 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10714 integer(IK) , intent(out) , contiguous :: sindex(:)
10715 integer(IK) , intent(out) :: neval
10716 integer(IK) , intent(out) :: nint
10717 integer(IK) :: err
10718 end function
10719#endif
10720
10721#if RK3_ENABLED
10722 module function QAGS_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10724 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK3
10725#endif
10726 use pm_kind, only: RKC => RK3
10727 procedure(real(RKC)) :: getFunc
10728 type(ninf_type) , intent(in) :: lb
10729 real(RKC) , intent(in) :: ub
10730 real(RKC) , intent(in) :: abstol
10731 real(RKC) , intent(in) :: reltol
10732 type(GK51_type) , intent(in) :: qrule
10733 type(weps_type) , intent(in) :: help
10734 real(RKC) , intent(out) :: integral, abserr
10735 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10736 integer(IK) , intent(out) , contiguous :: sindex(:)
10737 integer(IK) , intent(out) :: neval
10738 integer(IK) , intent(out) :: nint
10739 integer(IK) :: err
10740 end function
10741#endif
10742
10743#if RK2_ENABLED
10744 module function QAGS_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10746 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK2
10747#endif
10748 use pm_kind, only: RKC => RK2
10749 procedure(real(RKC)) :: getFunc
10750 type(ninf_type) , intent(in) :: lb
10751 real(RKC) , intent(in) :: ub
10752 real(RKC) , intent(in) :: abstol
10753 real(RKC) , intent(in) :: reltol
10754 type(GK51_type) , intent(in) :: qrule
10755 type(weps_type) , intent(in) :: help
10756 real(RKC) , intent(out) :: integral, abserr
10757 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10758 integer(IK) , intent(out) , contiguous :: sindex(:)
10759 integer(IK) , intent(out) :: neval
10760 integer(IK) , intent(out) :: nint
10761 integer(IK) :: err
10762 end function
10763#endif
10764
10765#if RK1_ENABLED
10766 module function QAGS_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10768 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK1
10769#endif
10770 use pm_kind, only: RKC => RK1
10771 procedure(real(RKC)) :: getFunc
10772 type(ninf_type) , intent(in) :: lb
10773 real(RKC) , intent(in) :: ub
10774 real(RKC) , intent(in) :: abstol
10775 real(RKC) , intent(in) :: reltol
10776 type(GK51_type) , intent(in) :: qrule
10777 type(weps_type) , intent(in) :: help
10778 real(RKC) , intent(out) :: integral, abserr
10779 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10780 integer(IK) , intent(out) , contiguous :: sindex(:)
10781 integer(IK) , intent(out) :: neval
10782 integer(IK) , intent(out) :: nint
10783 integer(IK) :: err
10784 end function
10785#endif
10786
10787 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10788
10789#if RK5_ENABLED
10790 module function QAGS_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10792 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK5
10793#endif
10794 use pm_kind, only: RKC => RK5
10795 procedure(real(RKC)) :: getFunc
10796 type(ninf_type) , intent(in) :: lb
10797 type(pinf_type) , intent(in) :: ub
10798 real(RKC) , intent(in) :: abstol
10799 real(RKC) , intent(in) :: reltol
10800 type(GK51_type) , intent(in) :: qrule
10801 type(weps_type) , intent(in) :: help
10802 real(RKC) , intent(out) :: integral, abserr
10803 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10804 integer(IK) , intent(out) , contiguous :: sindex(:)
10805 integer(IK) , intent(out) :: neval
10806 integer(IK) , intent(out) :: nint
10807 integer(IK) :: err
10808 end function
10809#endif
10810
10811#if RK4_ENABLED
10812 module function QAGS_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10814 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK4
10815#endif
10816 use pm_kind, only: RKC => RK4
10817 procedure(real(RKC)) :: getFunc
10818 type(ninf_type) , intent(in) :: lb
10819 type(pinf_type) , intent(in) :: ub
10820 real(RKC) , intent(in) :: abstol
10821 real(RKC) , intent(in) :: reltol
10822 type(GK51_type) , intent(in) :: qrule
10823 type(weps_type) , intent(in) :: help
10824 real(RKC) , intent(out) :: integral, abserr
10825 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10826 integer(IK) , intent(out) , contiguous :: sindex(:)
10827 integer(IK) , intent(out) :: neval
10828 integer(IK) , intent(out) :: nint
10829 integer(IK) :: err
10830 end function
10831#endif
10832
10833#if RK3_ENABLED
10834 module function QAGS_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10836 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK3
10837#endif
10838 use pm_kind, only: RKC => RK3
10839 procedure(real(RKC)) :: getFunc
10840 type(ninf_type) , intent(in) :: lb
10841 type(pinf_type) , intent(in) :: ub
10842 real(RKC) , intent(in) :: abstol
10843 real(RKC) , intent(in) :: reltol
10844 type(GK51_type) , intent(in) :: qrule
10845 type(weps_type) , intent(in) :: help
10846 real(RKC) , intent(out) :: integral, abserr
10847 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10848 integer(IK) , intent(out) , contiguous :: sindex(:)
10849 integer(IK) , intent(out) :: neval
10850 integer(IK) , intent(out) :: nint
10851 integer(IK) :: err
10852 end function
10853#endif
10854
10855#if RK2_ENABLED
10856 module function QAGS_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10858 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK2
10859#endif
10860 use pm_kind, only: RKC => RK2
10861 procedure(real(RKC)) :: getFunc
10862 type(ninf_type) , intent(in) :: lb
10863 type(pinf_type) , intent(in) :: ub
10864 real(RKC) , intent(in) :: abstol
10865 real(RKC) , intent(in) :: reltol
10866 type(GK51_type) , intent(in) :: qrule
10867 type(weps_type) , intent(in) :: help
10868 real(RKC) , intent(out) :: integral, abserr
10869 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10870 integer(IK) , intent(out) , contiguous :: sindex(:)
10871 integer(IK) , intent(out) :: neval
10872 integer(IK) , intent(out) :: nint
10873 integer(IK) :: err
10874 end function
10875#endif
10876
10877#if RK1_ENABLED
10878 module function QAGS_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10880 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK1
10881#endif
10882 use pm_kind, only: RKC => RK1
10883 procedure(real(RKC)) :: getFunc
10884 type(ninf_type) , intent(in) :: lb
10885 type(pinf_type) , intent(in) :: ub
10886 real(RKC) , intent(in) :: abstol
10887 real(RKC) , intent(in) :: reltol
10888 type(GK51_type) , intent(in) :: qrule
10889 type(weps_type) , intent(in) :: help
10890 real(RKC) , intent(out) :: integral, abserr
10891 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10892 integer(IK) , intent(out) , contiguous :: sindex(:)
10893 integer(IK) , intent(out) :: neval
10894 integer(IK) , intent(out) :: nint
10895 integer(IK) :: err
10896 end function
10897#endif
10898
10899 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10900
10901 end interface
10902
10903 ! QAGS_GK61
10904
10905 interface getQuadErr
10906
10907 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10908
10909#if RK5_ENABLED
10910 module function QAGS_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10911#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10912 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK5
10913#endif
10914 use pm_kind, only: RKC => RK5
10915 procedure(real(RKC)) :: getFunc
10916 real(RKC) , intent(in) :: lb
10917 real(RKC) , intent(in) :: ub
10918 real(RKC) , intent(in) :: abstol
10919 real(RKC) , intent(in) :: reltol
10920 type(GK61_type) , intent(in) :: qrule
10921 type(weps_type) , intent(in) :: help
10922 real(RKC) , intent(out) :: integral, abserr
10923 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10924 integer(IK) , intent(out) , contiguous :: sindex(:)
10925 integer(IK) , intent(out) :: neval
10926 integer(IK) , intent(out) :: nint
10927 integer(IK) :: err
10928 end function
10929#endif
10930
10931#if RK4_ENABLED
10932 module function QAGS_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10933#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10934 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK4
10935#endif
10936 use pm_kind, only: RKC => RK4
10937 procedure(real(RKC)) :: getFunc
10938 real(RKC) , intent(in) :: lb
10939 real(RKC) , intent(in) :: ub
10940 real(RKC) , intent(in) :: abstol
10941 real(RKC) , intent(in) :: reltol
10942 type(GK61_type) , intent(in) :: qrule
10943 type(weps_type) , intent(in) :: help
10944 real(RKC) , intent(out) :: integral, abserr
10945 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10946 integer(IK) , intent(out) , contiguous :: sindex(:)
10947 integer(IK) , intent(out) :: neval
10948 integer(IK) , intent(out) :: nint
10949 integer(IK) :: err
10950 end function
10951#endif
10952
10953#if RK3_ENABLED
10954 module function QAGS_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10956 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK3
10957#endif
10958 use pm_kind, only: RKC => RK3
10959 procedure(real(RKC)) :: getFunc
10960 real(RKC) , intent(in) :: lb
10961 real(RKC) , intent(in) :: ub
10962 real(RKC) , intent(in) :: abstol
10963 real(RKC) , intent(in) :: reltol
10964 type(GK61_type) , intent(in) :: qrule
10965 type(weps_type) , intent(in) :: help
10966 real(RKC) , intent(out) :: integral, abserr
10967 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10968 integer(IK) , intent(out) , contiguous :: sindex(:)
10969 integer(IK) , intent(out) :: neval
10970 integer(IK) , intent(out) :: nint
10971 integer(IK) :: err
10972 end function
10973#endif
10974
10975#if RK2_ENABLED
10976 module function QAGS_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10978 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK2
10979#endif
10980 use pm_kind, only: RKC => RK2
10981 procedure(real(RKC)) :: getFunc
10982 real(RKC) , intent(in) :: lb
10983 real(RKC) , intent(in) :: ub
10984 real(RKC) , intent(in) :: abstol
10985 real(RKC) , intent(in) :: reltol
10986 type(GK61_type) , intent(in) :: qrule
10987 type(weps_type) , intent(in) :: help
10988 real(RKC) , intent(out) :: integral, abserr
10989 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10990 integer(IK) , intent(out) , contiguous :: sindex(:)
10991 integer(IK) , intent(out) :: neval
10992 integer(IK) , intent(out) :: nint
10993 integer(IK) :: err
10994 end function
10995#endif
10996
10997#if RK1_ENABLED
10998 module function QAGS_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11000 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK1
11001#endif
11002 use pm_kind, only: RKC => RK1
11003 procedure(real(RKC)) :: getFunc
11004 real(RKC) , intent(in) :: lb
11005 real(RKC) , intent(in) :: ub
11006 real(RKC) , intent(in) :: abstol
11007 real(RKC) , intent(in) :: reltol
11008 type(GK61_type) , intent(in) :: qrule
11009 type(weps_type) , intent(in) :: help
11010 real(RKC) , intent(out) :: integral, abserr
11011 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11012 integer(IK) , intent(out) , contiguous :: sindex(:)
11013 integer(IK) , intent(out) :: neval
11014 integer(IK) , intent(out) :: nint
11015 integer(IK) :: err
11016 end function
11017#endif
11018
11019 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11020
11021#if RK5_ENABLED
11022 module function QAGS_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11023#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11024 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK5
11025#endif
11026 use pm_kind, only: RKC => RK5
11027 procedure(real(RKC)) :: getFunc
11028 real(RKC) , intent(in) :: lb
11029 type(pinf_type) , intent(in) :: ub
11030 real(RKC) , intent(in) :: abstol
11031 real(RKC) , intent(in) :: reltol
11032 type(GK61_type) , intent(in) :: qrule
11033 type(weps_type) , intent(in) :: help
11034 real(RKC) , intent(out) :: integral, abserr
11035 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11036 integer(IK) , intent(out) , contiguous :: sindex(:)
11037 integer(IK) , intent(out) :: neval
11038 integer(IK) , intent(out) :: nint
11039 integer(IK) :: err
11040 end function
11041#endif
11042
11043#if RK4_ENABLED
11044 module function QAGS_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11045#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11046 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK4
11047#endif
11048 use pm_kind, only: RKC => RK4
11049 procedure(real(RKC)) :: getFunc
11050 real(RKC) , intent(in) :: lb
11051 type(pinf_type) , intent(in) :: ub
11052 real(RKC) , intent(in) :: abstol
11053 real(RKC) , intent(in) :: reltol
11054 type(GK61_type) , intent(in) :: qrule
11055 type(weps_type) , intent(in) :: help
11056 real(RKC) , intent(out) :: integral, abserr
11057 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11058 integer(IK) , intent(out) , contiguous :: sindex(:)
11059 integer(IK) , intent(out) :: neval
11060 integer(IK) , intent(out) :: nint
11061 integer(IK) :: err
11062 end function
11063#endif
11064
11065#if RK3_ENABLED
11066 module function QAGS_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11068 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK3
11069#endif
11070 use pm_kind, only: RKC => RK3
11071 procedure(real(RKC)) :: getFunc
11072 real(RKC) , intent(in) :: lb
11073 type(pinf_type) , intent(in) :: ub
11074 real(RKC) , intent(in) :: abstol
11075 real(RKC) , intent(in) :: reltol
11076 type(GK61_type) , intent(in) :: qrule
11077 type(weps_type) , intent(in) :: help
11078 real(RKC) , intent(out) :: integral, abserr
11079 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11080 integer(IK) , intent(out) , contiguous :: sindex(:)
11081 integer(IK) , intent(out) :: neval
11082 integer(IK) , intent(out) :: nint
11083 integer(IK) :: err
11084 end function
11085#endif
11086
11087#if RK2_ENABLED
11088 module function QAGS_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11090 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK2
11091#endif
11092 use pm_kind, only: RKC => RK2
11093 procedure(real(RKC)) :: getFunc
11094 real(RKC) , intent(in) :: lb
11095 type(pinf_type) , intent(in) :: ub
11096 real(RKC) , intent(in) :: abstol
11097 real(RKC) , intent(in) :: reltol
11098 type(GK61_type) , intent(in) :: qrule
11099 type(weps_type) , intent(in) :: help
11100 real(RKC) , intent(out) :: integral, abserr
11101 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11102 integer(IK) , intent(out) , contiguous :: sindex(:)
11103 integer(IK) , intent(out) :: neval
11104 integer(IK) , intent(out) :: nint
11105 integer(IK) :: err
11106 end function
11107#endif
11108
11109#if RK1_ENABLED
11110 module function QAGS_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11112 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK1
11113#endif
11114 use pm_kind, only: RKC => RK1
11115 procedure(real(RKC)) :: getFunc
11116 real(RKC) , intent(in) :: lb
11117 type(pinf_type) , intent(in) :: ub
11118 real(RKC) , intent(in) :: abstol
11119 real(RKC) , intent(in) :: reltol
11120 type(GK61_type) , intent(in) :: qrule
11121 type(weps_type) , intent(in) :: help
11122 real(RKC) , intent(out) :: integral, abserr
11123 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11124 integer(IK) , intent(out) , contiguous :: sindex(:)
11125 integer(IK) , intent(out) :: neval
11126 integer(IK) , intent(out) :: nint
11127 integer(IK) :: err
11128 end function
11129#endif
11130
11131 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11132
11133#if RK5_ENABLED
11134 module function QAGS_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11136 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK5
11137#endif
11138 use pm_kind, only: RKC => RK5
11139 procedure(real(RKC)) :: getFunc
11140 type(ninf_type) , intent(in) :: lb
11141 real(RKC) , intent(in) :: ub
11142 real(RKC) , intent(in) :: abstol
11143 real(RKC) , intent(in) :: reltol
11144 type(GK61_type) , intent(in) :: qrule
11145 type(weps_type) , intent(in) :: help
11146 real(RKC) , intent(out) :: integral, abserr
11147 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11148 integer(IK) , intent(out) , contiguous :: sindex(:)
11149 integer(IK) , intent(out) :: neval
11150 integer(IK) , intent(out) :: nint
11151 integer(IK) :: err
11152 end function
11153#endif
11154
11155#if RK4_ENABLED
11156 module function QAGS_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11158 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK4
11159#endif
11160 use pm_kind, only: RKC => RK4
11161 procedure(real(RKC)) :: getFunc
11162 type(ninf_type) , intent(in) :: lb
11163 real(RKC) , intent(in) :: ub
11164 real(RKC) , intent(in) :: abstol
11165 real(RKC) , intent(in) :: reltol
11166 type(GK61_type) , intent(in) :: qrule
11167 type(weps_type) , intent(in) :: help
11168 real(RKC) , intent(out) :: integral, abserr
11169 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11170 integer(IK) , intent(out) , contiguous :: sindex(:)
11171 integer(IK) , intent(out) :: neval
11172 integer(IK) , intent(out) :: nint
11173 integer(IK) :: err
11174 end function
11175#endif
11176
11177#if RK3_ENABLED
11178 module function QAGS_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11180 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK3
11181#endif
11182 use pm_kind, only: RKC => RK3
11183 procedure(real(RKC)) :: getFunc
11184 type(ninf_type) , intent(in) :: lb
11185 real(RKC) , intent(in) :: ub
11186 real(RKC) , intent(in) :: abstol
11187 real(RKC) , intent(in) :: reltol
11188 type(GK61_type) , intent(in) :: qrule
11189 type(weps_type) , intent(in) :: help
11190 real(RKC) , intent(out) :: integral, abserr
11191 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11192 integer(IK) , intent(out) , contiguous :: sindex(:)
11193 integer(IK) , intent(out) :: neval
11194 integer(IK) , intent(out) :: nint
11195 integer(IK) :: err
11196 end function
11197#endif
11198
11199#if RK2_ENABLED
11200 module function QAGS_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11202 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK2
11203#endif
11204 use pm_kind, only: RKC => RK2
11205 procedure(real(RKC)) :: getFunc
11206 type(ninf_type) , intent(in) :: lb
11207 real(RKC) , intent(in) :: ub
11208 real(RKC) , intent(in) :: abstol
11209 real(RKC) , intent(in) :: reltol
11210 type(GK61_type) , intent(in) :: qrule
11211 type(weps_type) , intent(in) :: help
11212 real(RKC) , intent(out) :: integral, abserr
11213 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11214 integer(IK) , intent(out) , contiguous :: sindex(:)
11215 integer(IK) , intent(out) :: neval
11216 integer(IK) , intent(out) :: nint
11217 integer(IK) :: err
11218 end function
11219#endif
11220
11221#if RK1_ENABLED
11222 module function QAGS_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11224 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK1
11225#endif
11226 use pm_kind, only: RKC => RK1
11227 procedure(real(RKC)) :: getFunc
11228 type(ninf_type) , intent(in) :: lb
11229 real(RKC) , intent(in) :: ub
11230 real(RKC) , intent(in) :: abstol
11231 real(RKC) , intent(in) :: reltol
11232 type(GK61_type) , intent(in) :: qrule
11233 type(weps_type) , intent(in) :: help
11234 real(RKC) , intent(out) :: integral, abserr
11235 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11236 integer(IK) , intent(out) , contiguous :: sindex(:)
11237 integer(IK) , intent(out) :: neval
11238 integer(IK) , intent(out) :: nint
11239 integer(IK) :: err
11240 end function
11241#endif
11242
11243 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11244
11245#if RK5_ENABLED
11246 module function QAGS_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11248 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK5
11249#endif
11250 use pm_kind, only: RKC => RK5
11251 procedure(real(RKC)) :: getFunc
11252 type(ninf_type) , intent(in) :: lb
11253 type(pinf_type) , intent(in) :: ub
11254 real(RKC) , intent(in) :: abstol
11255 real(RKC) , intent(in) :: reltol
11256 type(GK61_type) , intent(in) :: qrule
11257 type(weps_type) , intent(in) :: help
11258 real(RKC) , intent(out) :: integral, abserr
11259 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11260 integer(IK) , intent(out) , contiguous :: sindex(:)
11261 integer(IK) , intent(out) :: neval
11262 integer(IK) , intent(out) :: nint
11263 integer(IK) :: err
11264 end function
11265#endif
11266
11267#if RK4_ENABLED
11268 module function QAGS_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11270 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK4
11271#endif
11272 use pm_kind, only: RKC => RK4
11273 procedure(real(RKC)) :: getFunc
11274 type(ninf_type) , intent(in) :: lb
11275 type(pinf_type) , intent(in) :: ub
11276 real(RKC) , intent(in) :: abstol
11277 real(RKC) , intent(in) :: reltol
11278 type(GK61_type) , intent(in) :: qrule
11279 type(weps_type) , intent(in) :: help
11280 real(RKC) , intent(out) :: integral, abserr
11281 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11282 integer(IK) , intent(out) , contiguous :: sindex(:)
11283 integer(IK) , intent(out) :: neval
11284 integer(IK) , intent(out) :: nint
11285 integer(IK) :: err
11286 end function
11287#endif
11288
11289#if RK3_ENABLED
11290 module function QAGS_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11292 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK3
11293#endif
11294 use pm_kind, only: RKC => RK3
11295 procedure(real(RKC)) :: getFunc
11296 type(ninf_type) , intent(in) :: lb
11297 type(pinf_type) , intent(in) :: ub
11298 real(RKC) , intent(in) :: abstol
11299 real(RKC) , intent(in) :: reltol
11300 type(GK61_type) , intent(in) :: qrule
11301 type(weps_type) , intent(in) :: help
11302 real(RKC) , intent(out) :: integral, abserr
11303 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11304 integer(IK) , intent(out) , contiguous :: sindex(:)
11305 integer(IK) , intent(out) :: neval
11306 integer(IK) , intent(out) :: nint
11307 integer(IK) :: err
11308 end function
11309#endif
11310
11311#if RK2_ENABLED
11312 module function QAGS_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11314 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK2
11315#endif
11316 use pm_kind, only: RKC => RK2
11317 procedure(real(RKC)) :: getFunc
11318 type(ninf_type) , intent(in) :: lb
11319 type(pinf_type) , intent(in) :: ub
11320 real(RKC) , intent(in) :: abstol
11321 real(RKC) , intent(in) :: reltol
11322 type(GK61_type) , intent(in) :: qrule
11323 type(weps_type) , intent(in) :: help
11324 real(RKC) , intent(out) :: integral, abserr
11325 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11326 integer(IK) , intent(out) , contiguous :: sindex(:)
11327 integer(IK) , intent(out) :: neval
11328 integer(IK) , intent(out) :: nint
11329 integer(IK) :: err
11330 end function
11331#endif
11332
11333#if RK1_ENABLED
11334 module function QAGS_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11336 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK1
11337#endif
11338 use pm_kind, only: RKC => RK1
11339 procedure(real(RKC)) :: getFunc
11340 type(ninf_type) , intent(in) :: lb
11341 type(pinf_type) , intent(in) :: ub
11342 real(RKC) , intent(in) :: abstol
11343 real(RKC) , intent(in) :: reltol
11344 type(GK61_type) , intent(in) :: qrule
11345 type(weps_type) , intent(in) :: help
11346 real(RKC) , intent(out) :: integral, abserr
11347 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11348 integer(IK) , intent(out) , contiguous :: sindex(:)
11349 integer(IK) , intent(out) :: neval
11350 integer(IK) , intent(out) :: nint
11351 integer(IK) :: err
11352 end function
11353#endif
11354
11355 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11356
11357 end interface
11358
11359 ! QAGS_GKXX
11360
11361 interface getQuadErr
11362
11363 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11364
11365#if RK5_ENABLED
11366 module function QAGS_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11368 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK5
11369#endif
11370 use pm_kind, only: RKC => RK5
11371 procedure(real(RKC)) :: getFunc
11372 real(RKC) , intent(in) :: lb
11373 real(RKC) , intent(in) :: ub
11374 real(RKC) , intent(in) :: abstol
11375 real(RKC) , intent(in) :: reltol
11376 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11377 type(weps_type) , intent(in) :: help
11378 real(RKC) , intent(out) :: integral, abserr
11379 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11380 integer(IK) , intent(out) , contiguous :: sindex(:)
11381 integer(IK) , intent(out) :: neval
11382 integer(IK) , intent(out) :: nint
11383 integer(IK) :: err
11384 end function
11385#endif
11386
11387#if RK4_ENABLED
11388 module function QAGS_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11390 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK4
11391#endif
11392 use pm_kind, only: RKC => RK4
11393 procedure(real(RKC)) :: getFunc
11394 real(RKC) , intent(in) :: lb
11395 real(RKC) , intent(in) :: ub
11396 real(RKC) , intent(in) :: abstol
11397 real(RKC) , intent(in) :: reltol
11398 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11399 type(weps_type) , intent(in) :: help
11400 real(RKC) , intent(out) :: integral, abserr
11401 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11402 integer(IK) , intent(out) , contiguous :: sindex(:)
11403 integer(IK) , intent(out) :: neval
11404 integer(IK) , intent(out) :: nint
11405 integer(IK) :: err
11406 end function
11407#endif
11408
11409#if RK3_ENABLED
11410 module function QAGS_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11412 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK3
11413#endif
11414 use pm_kind, only: RKC => RK3
11415 procedure(real(RKC)) :: getFunc
11416 real(RKC) , intent(in) :: lb
11417 real(RKC) , intent(in) :: ub
11418 real(RKC) , intent(in) :: abstol
11419 real(RKC) , intent(in) :: reltol
11420 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11421 type(weps_type) , intent(in) :: help
11422 real(RKC) , intent(out) :: integral, abserr
11423 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11424 integer(IK) , intent(out) , contiguous :: sindex(:)
11425 integer(IK) , intent(out) :: neval
11426 integer(IK) , intent(out) :: nint
11427 integer(IK) :: err
11428 end function
11429#endif
11430
11431#if RK2_ENABLED
11432 module function QAGS_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11434 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK2
11435#endif
11436 use pm_kind, only: RKC => RK2
11437 procedure(real(RKC)) :: getFunc
11438 real(RKC) , intent(in) :: lb
11439 real(RKC) , intent(in) :: ub
11440 real(RKC) , intent(in) :: abstol
11441 real(RKC) , intent(in) :: reltol
11442 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11443 type(weps_type) , intent(in) :: help
11444 real(RKC) , intent(out) :: integral, abserr
11445 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11446 integer(IK) , intent(out) , contiguous :: sindex(:)
11447 integer(IK) , intent(out) :: neval
11448 integer(IK) , intent(out) :: nint
11449 integer(IK) :: err
11450 end function
11451#endif
11452
11453#if RK1_ENABLED
11454 module function QAGS_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11455#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11456 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK1
11457#endif
11458 use pm_kind, only: RKC => RK1
11459 procedure(real(RKC)) :: getFunc
11460 real(RKC) , intent(in) :: lb
11461 real(RKC) , intent(in) :: ub
11462 real(RKC) , intent(in) :: abstol
11463 real(RKC) , intent(in) :: reltol
11464 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11465 type(weps_type) , intent(in) :: help
11466 real(RKC) , intent(out) :: integral, abserr
11467 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11468 integer(IK) , intent(out) , contiguous :: sindex(:)
11469 integer(IK) , intent(out) :: neval
11470 integer(IK) , intent(out) :: nint
11471 integer(IK) :: err
11472 end function
11473#endif
11474
11475 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11476
11477#if RK5_ENABLED
11478 module function QAGS_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11480 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK5
11481#endif
11482 use pm_kind, only: RKC => RK5
11483 procedure(real(RKC)) :: getFunc
11484 real(RKC) , intent(in) :: lb
11485 type(pinf_type) , intent(in) :: ub
11486 real(RKC) , intent(in) :: abstol
11487 real(RKC) , intent(in) :: reltol
11488 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11489 type(weps_type) , intent(in) :: help
11490 real(RKC) , intent(out) :: integral, abserr
11491 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11492 integer(IK) , intent(out) , contiguous :: sindex(:)
11493 integer(IK) , intent(out) :: neval
11494 integer(IK) , intent(out) :: nint
11495 integer(IK) :: err
11496 end function
11497#endif
11498
11499#if RK4_ENABLED
11500 module function QAGS_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11502 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK4
11503#endif
11504 use pm_kind, only: RKC => RK4
11505 procedure(real(RKC)) :: getFunc
11506 real(RKC) , intent(in) :: lb
11507 type(pinf_type) , intent(in) :: ub
11508 real(RKC) , intent(in) :: abstol
11509 real(RKC) , intent(in) :: reltol
11510 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11511 type(weps_type) , intent(in) :: help
11512 real(RKC) , intent(out) :: integral, abserr
11513 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11514 integer(IK) , intent(out) , contiguous :: sindex(:)
11515 integer(IK) , intent(out) :: neval
11516 integer(IK) , intent(out) :: nint
11517 integer(IK) :: err
11518 end function
11519#endif
11520
11521#if RK3_ENABLED
11522 module function QAGS_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11524 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK3
11525#endif
11526 use pm_kind, only: RKC => RK3
11527 procedure(real(RKC)) :: getFunc
11528 real(RKC) , intent(in) :: lb
11529 type(pinf_type) , intent(in) :: ub
11530 real(RKC) , intent(in) :: abstol
11531 real(RKC) , intent(in) :: reltol
11532 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11533 type(weps_type) , intent(in) :: help
11534 real(RKC) , intent(out) :: integral, abserr
11535 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11536 integer(IK) , intent(out) , contiguous :: sindex(:)
11537 integer(IK) , intent(out) :: neval
11538 integer(IK) , intent(out) :: nint
11539 integer(IK) :: err
11540 end function
11541#endif
11542
11543#if RK2_ENABLED
11544 module function QAGS_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11546 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK2
11547#endif
11548 use pm_kind, only: RKC => RK2
11549 procedure(real(RKC)) :: getFunc
11550 real(RKC) , intent(in) :: lb
11551 type(pinf_type) , intent(in) :: ub
11552 real(RKC) , intent(in) :: abstol
11553 real(RKC) , intent(in) :: reltol
11554 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11555 type(weps_type) , intent(in) :: help
11556 real(RKC) , intent(out) :: integral, abserr
11557 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11558 integer(IK) , intent(out) , contiguous :: sindex(:)
11559 integer(IK) , intent(out) :: neval
11560 integer(IK) , intent(out) :: nint
11561 integer(IK) :: err
11562 end function
11563#endif
11564
11565#if RK1_ENABLED
11566 module function QAGS_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11568 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK1
11569#endif
11570 use pm_kind, only: RKC => RK1
11571 procedure(real(RKC)) :: getFunc
11572 real(RKC) , intent(in) :: lb
11573 type(pinf_type) , intent(in) :: ub
11574 real(RKC) , intent(in) :: abstol
11575 real(RKC) , intent(in) :: reltol
11576 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11577 type(weps_type) , intent(in) :: help
11578 real(RKC) , intent(out) :: integral, abserr
11579 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11580 integer(IK) , intent(out) , contiguous :: sindex(:)
11581 integer(IK) , intent(out) :: neval
11582 integer(IK) , intent(out) :: nint
11583 integer(IK) :: err
11584 end function
11585#endif
11586
11587 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11588
11589#if RK5_ENABLED
11590 module function QAGS_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11592 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK5
11593#endif
11594 use pm_kind, only: RKC => RK5
11595 procedure(real(RKC)) :: getFunc
11596 type(ninf_type) , intent(in) :: lb
11597 real(RKC) , intent(in) :: ub
11598 real(RKC) , intent(in) :: abstol
11599 real(RKC) , intent(in) :: reltol
11600 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11601 type(weps_type) , intent(in) :: help
11602 real(RKC) , intent(out) :: integral, abserr
11603 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11604 integer(IK) , intent(out) , contiguous :: sindex(:)
11605 integer(IK) , intent(out) :: neval
11606 integer(IK) , intent(out) :: nint
11607 integer(IK) :: err
11608 end function
11609#endif
11610
11611#if RK4_ENABLED
11612 module function QAGS_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11614 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK4
11615#endif
11616 use pm_kind, only: RKC => RK4
11617 procedure(real(RKC)) :: getFunc
11618 type(ninf_type) , intent(in) :: lb
11619 real(RKC) , intent(in) :: ub
11620 real(RKC) , intent(in) :: abstol
11621 real(RKC) , intent(in) :: reltol
11622 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11623 type(weps_type) , intent(in) :: help
11624 real(RKC) , intent(out) :: integral, abserr
11625 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11626 integer(IK) , intent(out) , contiguous :: sindex(:)
11627 integer(IK) , intent(out) :: neval
11628 integer(IK) , intent(out) :: nint
11629 integer(IK) :: err
11630 end function
11631#endif
11632
11633#if RK3_ENABLED
11634 module function QAGS_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11635#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11636 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK3
11637#endif
11638 use pm_kind, only: RKC => RK3
11639 procedure(real(RKC)) :: getFunc
11640 type(ninf_type) , intent(in) :: lb
11641 real(RKC) , intent(in) :: ub
11642 real(RKC) , intent(in) :: abstol
11643 real(RKC) , intent(in) :: reltol
11644 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11645 type(weps_type) , intent(in) :: help
11646 real(RKC) , intent(out) :: integral, abserr
11647 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11648 integer(IK) , intent(out) , contiguous :: sindex(:)
11649 integer(IK) , intent(out) :: neval
11650 integer(IK) , intent(out) :: nint
11651 integer(IK) :: err
11652 end function
11653#endif
11654
11655#if RK2_ENABLED
11656 module function QAGS_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11658 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK2
11659#endif
11660 use pm_kind, only: RKC => RK2
11661 procedure(real(RKC)) :: getFunc
11662 type(ninf_type) , intent(in) :: lb
11663 real(RKC) , intent(in) :: ub
11664 real(RKC) , intent(in) :: abstol
11665 real(RKC) , intent(in) :: reltol
11666 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11667 type(weps_type) , intent(in) :: help
11668 real(RKC) , intent(out) :: integral, abserr
11669 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11670 integer(IK) , intent(out) , contiguous :: sindex(:)
11671 integer(IK) , intent(out) :: neval
11672 integer(IK) , intent(out) :: nint
11673 integer(IK) :: err
11674 end function
11675#endif
11676
11677#if RK1_ENABLED
11678 module function QAGS_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11680 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK1
11681#endif
11682 use pm_kind, only: RKC => RK1
11683 procedure(real(RKC)) :: getFunc
11684 type(ninf_type) , intent(in) :: lb
11685 real(RKC) , intent(in) :: ub
11686 real(RKC) , intent(in) :: abstol
11687 real(RKC) , intent(in) :: reltol
11688 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11689 type(weps_type) , intent(in) :: help
11690 real(RKC) , intent(out) :: integral, abserr
11691 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11692 integer(IK) , intent(out) , contiguous :: sindex(:)
11693 integer(IK) , intent(out) :: neval
11694 integer(IK) , intent(out) :: nint
11695 integer(IK) :: err
11696 end function
11697#endif
11698
11699 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11700
11701#if RK5_ENABLED
11702 module function QAGS_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11704 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK5
11705#endif
11706 use pm_kind, only: RKC => RK5
11707 procedure(real(RKC)) :: getFunc
11708 type(ninf_type) , intent(in) :: lb
11709 type(pinf_type) , intent(in) :: ub
11710 real(RKC) , intent(in) :: abstol
11711 real(RKC) , intent(in) :: reltol
11712 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11713 type(weps_type) , intent(in) :: help
11714 real(RKC) , intent(out) :: integral, abserr
11715 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11716 integer(IK) , intent(out) , contiguous :: sindex(:)
11717 integer(IK) , intent(out) :: neval
11718 integer(IK) , intent(out) :: nint
11719 integer(IK) :: err
11720 end function
11721#endif
11722
11723#if RK4_ENABLED
11724 module function QAGS_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11726 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK4
11727#endif
11728 use pm_kind, only: RKC => RK4
11729 procedure(real(RKC)) :: getFunc
11730 type(ninf_type) , intent(in) :: lb
11731 type(pinf_type) , intent(in) :: ub
11732 real(RKC) , intent(in) :: abstol
11733 real(RKC) , intent(in) :: reltol
11734 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11735 type(weps_type) , intent(in) :: help
11736 real(RKC) , intent(out) :: integral, abserr
11737 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11738 integer(IK) , intent(out) , contiguous :: sindex(:)
11739 integer(IK) , intent(out) :: neval
11740 integer(IK) , intent(out) :: nint
11741 integer(IK) :: err
11742 end function
11743#endif
11744
11745#if RK3_ENABLED
11746 module function QAGS_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11748 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK3
11749#endif
11750 use pm_kind, only: RKC => RK3
11751 procedure(real(RKC)) :: getFunc
11752 type(ninf_type) , intent(in) :: lb
11753 type(pinf_type) , intent(in) :: ub
11754 real(RKC) , intent(in) :: abstol
11755 real(RKC) , intent(in) :: reltol
11756 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11757 type(weps_type) , intent(in) :: help
11758 real(RKC) , intent(out) :: integral, abserr
11759 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11760 integer(IK) , intent(out) , contiguous :: sindex(:)
11761 integer(IK) , intent(out) :: neval
11762 integer(IK) , intent(out) :: nint
11763 integer(IK) :: err
11764 end function
11765#endif
11766
11767#if RK2_ENABLED
11768 module function QAGS_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11770 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK2
11771#endif
11772 use pm_kind, only: RKC => RK2
11773 procedure(real(RKC)) :: getFunc
11774 type(ninf_type) , intent(in) :: lb
11775 type(pinf_type) , intent(in) :: ub
11776 real(RKC) , intent(in) :: abstol
11777 real(RKC) , intent(in) :: reltol
11778 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11779 type(weps_type) , intent(in) :: help
11780 real(RKC) , intent(out) :: integral, abserr
11781 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11782 integer(IK) , intent(out) , contiguous :: sindex(:)
11783 integer(IK) , intent(out) :: neval
11784 integer(IK) , intent(out) :: nint
11785 integer(IK) :: err
11786 end function
11787#endif
11788
11789#if RK1_ENABLED
11790 module function QAGS_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11792 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK1
11793#endif
11794 use pm_kind, only: RKC => RK1
11795 procedure(real(RKC)) :: getFunc
11796 type(ninf_type) , intent(in) :: lb
11797 type(pinf_type) , intent(in) :: ub
11798 real(RKC) , intent(in) :: abstol
11799 real(RKC) , intent(in) :: reltol
11800 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11801 type(weps_type) , intent(in) :: help
11802 real(RKC) , intent(out) :: integral, abserr
11803 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11804 integer(IK) , intent(out) , contiguous :: sindex(:)
11805 integer(IK) , intent(out) :: neval
11806 integer(IK) , intent(out) :: nint
11807 integer(IK) :: err
11808 end function
11809#endif
11810
11811 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11812
11813 end interface
11814
11815!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11816
11817 ! QAGP_GK15
11818
11819 interface getQuadErr
11820
11821 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11822
11823#if RK5_ENABLED
11824 module function QAGP_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11825#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11826 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK5
11827#endif
11828 use pm_kind, only: RKC => RK5
11829 procedure(real(RKC)) :: getFunc
11830 real(RKC) , intent(in) :: lb
11831 real(RKC) , intent(in) :: ub
11832 real(RKC) , intent(in) :: abstol
11833 real(RKC) , intent(in) :: reltol
11834 type(GK15_type) , intent(in) :: qrule
11835 real(RKC) , intent(in) , contiguous :: help(:)
11836 real(RKC) , intent(out) :: integral, abserr
11837 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11838 integer(IK) , intent(out) , contiguous :: sindex(:)
11839 integer(IK) , intent(out) :: neval
11840 integer(IK) , intent(out) :: nint
11841 integer(IK) :: err
11842 end function
11843#endif
11844
11845#if RK4_ENABLED
11846 module function QAGP_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11848 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK4
11849#endif
11850 use pm_kind, only: RKC => RK4
11851 procedure(real(RKC)) :: getFunc
11852 real(RKC) , intent(in) :: lb
11853 real(RKC) , intent(in) :: ub
11854 real(RKC) , intent(in) :: abstol
11855 real(RKC) , intent(in) :: reltol
11856 type(GK15_type) , intent(in) :: qrule
11857 real(RKC) , intent(in) , contiguous :: help(:)
11858 real(RKC) , intent(out) :: integral, abserr
11859 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11860 integer(IK) , intent(out) , contiguous :: sindex(:)
11861 integer(IK) , intent(out) :: neval
11862 integer(IK) , intent(out) :: nint
11863 integer(IK) :: err
11864 end function
11865#endif
11866
11867#if RK3_ENABLED
11868 module function QAGP_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11870 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK3
11871#endif
11872 use pm_kind, only: RKC => RK3
11873 procedure(real(RKC)) :: getFunc
11874 real(RKC) , intent(in) :: lb
11875 real(RKC) , intent(in) :: ub
11876 real(RKC) , intent(in) :: abstol
11877 real(RKC) , intent(in) :: reltol
11878 type(GK15_type) , intent(in) :: qrule
11879 real(RKC) , intent(in) , contiguous :: help(:)
11880 real(RKC) , intent(out) :: integral, abserr
11881 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11882 integer(IK) , intent(out) , contiguous :: sindex(:)
11883 integer(IK) , intent(out) :: neval
11884 integer(IK) , intent(out) :: nint
11885 integer(IK) :: err
11886 end function
11887#endif
11888
11889#if RK2_ENABLED
11890 module function QAGP_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11892 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK2
11893#endif
11894 use pm_kind, only: RKC => RK2
11895 procedure(real(RKC)) :: getFunc
11896 real(RKC) , intent(in) :: lb
11897 real(RKC) , intent(in) :: ub
11898 real(RKC) , intent(in) :: abstol
11899 real(RKC) , intent(in) :: reltol
11900 type(GK15_type) , intent(in) :: qrule
11901 real(RKC) , intent(in) , contiguous :: help(:)
11902 real(RKC) , intent(out) :: integral, abserr
11903 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11904 integer(IK) , intent(out) , contiguous :: sindex(:)
11905 integer(IK) , intent(out) :: neval
11906 integer(IK) , intent(out) :: nint
11907 integer(IK) :: err
11908 end function
11909#endif
11910
11911#if RK1_ENABLED
11912 module function QAGP_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11914 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK1
11915#endif
11916 use pm_kind, only: RKC => RK1
11917 procedure(real(RKC)) :: getFunc
11918 real(RKC) , intent(in) :: lb
11919 real(RKC) , intent(in) :: ub
11920 real(RKC) , intent(in) :: abstol
11921 real(RKC) , intent(in) :: reltol
11922 type(GK15_type) , intent(in) :: qrule
11923 real(RKC) , intent(in) , contiguous :: help(:)
11924 real(RKC) , intent(out) :: integral, abserr
11925 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11926 integer(IK) , intent(out) , contiguous :: sindex(:)
11927 integer(IK) , intent(out) :: neval
11928 integer(IK) , intent(out) :: nint
11929 integer(IK) :: err
11930 end function
11931#endif
11932
11933 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11934
11935#if RK5_ENABLED
11936 module function QAGP_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11938 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK5
11939#endif
11940 use pm_kind, only: RKC => RK5
11941 procedure(real(RKC)) :: getFunc
11942 real(RKC) , intent(in) :: lb
11943 type(pinf_type) , intent(in) :: ub
11944 real(RKC) , intent(in) :: abstol
11945 real(RKC) , intent(in) :: reltol
11946 type(GK15_type) , intent(in) :: qrule
11947 real(RKC) , intent(in) , contiguous :: help(:)
11948 real(RKC) , intent(out) :: integral, abserr
11949 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11950 integer(IK) , intent(out) , contiguous :: sindex(:)
11951 integer(IK) , intent(out) :: neval
11952 integer(IK) , intent(out) :: nint
11953 integer(IK) :: err
11954 end function
11955#endif
11956
11957#if RK4_ENABLED
11958 module function QAGP_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11959#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11960 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK4
11961#endif
11962 use pm_kind, only: RKC => RK4
11963 procedure(real(RKC)) :: getFunc
11964 real(RKC) , intent(in) :: lb
11965 type(pinf_type) , intent(in) :: ub
11966 real(RKC) , intent(in) :: abstol
11967 real(RKC) , intent(in) :: reltol
11968 type(GK15_type) , intent(in) :: qrule
11969 real(RKC) , intent(in) , contiguous :: help(:)
11970 real(RKC) , intent(out) :: integral, abserr
11971 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11972 integer(IK) , intent(out) , contiguous :: sindex(:)
11973 integer(IK) , intent(out) :: neval
11974 integer(IK) , intent(out) :: nint
11975 integer(IK) :: err
11976 end function
11977#endif
11978
11979#if RK3_ENABLED
11980 module function QAGP_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11982 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK3
11983#endif
11984 use pm_kind, only: RKC => RK3
11985 procedure(real(RKC)) :: getFunc
11986 real(RKC) , intent(in) :: lb
11987 type(pinf_type) , intent(in) :: ub
11988 real(RKC) , intent(in) :: abstol
11989 real(RKC) , intent(in) :: reltol
11990 type(GK15_type) , intent(in) :: qrule
11991 real(RKC) , intent(in) , contiguous :: help(:)
11992 real(RKC) , intent(out) :: integral, abserr
11993 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11994 integer(IK) , intent(out) , contiguous :: sindex(:)
11995 integer(IK) , intent(out) :: neval
11996 integer(IK) , intent(out) :: nint
11997 integer(IK) :: err
11998 end function
11999#endif
12000
12001#if RK2_ENABLED
12002 module function QAGP_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12004 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK2
12005#endif
12006 use pm_kind, only: RKC => RK2
12007 procedure(real(RKC)) :: getFunc
12008 real(RKC) , intent(in) :: lb
12009 type(pinf_type) , intent(in) :: ub
12010 real(RKC) , intent(in) :: abstol
12011 real(RKC) , intent(in) :: reltol
12012 type(GK15_type) , intent(in) :: qrule
12013 real(RKC) , intent(in) , contiguous :: help(:)
12014 real(RKC) , intent(out) :: integral, abserr
12015 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12016 integer(IK) , intent(out) , contiguous :: sindex(:)
12017 integer(IK) , intent(out) :: neval
12018 integer(IK) , intent(out) :: nint
12019 integer(IK) :: err
12020 end function
12021#endif
12022
12023#if RK1_ENABLED
12024 module function QAGP_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12026 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK1
12027#endif
12028 use pm_kind, only: RKC => RK1
12029 procedure(real(RKC)) :: getFunc
12030 real(RKC) , intent(in) :: lb
12031 type(pinf_type) , intent(in) :: ub
12032 real(RKC) , intent(in) :: abstol
12033 real(RKC) , intent(in) :: reltol
12034 type(GK15_type) , intent(in) :: qrule
12035 real(RKC) , intent(in) , contiguous :: help(:)
12036 real(RKC) , intent(out) :: integral, abserr
12037 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12038 integer(IK) , intent(out) , contiguous :: sindex(:)
12039 integer(IK) , intent(out) :: neval
12040 integer(IK) , intent(out) :: nint
12041 integer(IK) :: err
12042 end function
12043#endif
12044
12045 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12046
12047#if RK5_ENABLED
12048 module function QAGP_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12050 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK5
12051#endif
12052 use pm_kind, only: RKC => RK5
12053 procedure(real(RKC)) :: getFunc
12054 type(ninf_type) , intent(in) :: lb
12055 real(RKC) , intent(in) :: ub
12056 real(RKC) , intent(in) :: abstol
12057 real(RKC) , intent(in) :: reltol
12058 type(GK15_type) , intent(in) :: qrule
12059 real(RKC) , intent(in) , contiguous :: help(:)
12060 real(RKC) , intent(out) :: integral, abserr
12061 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12062 integer(IK) , intent(out) , contiguous :: sindex(:)
12063 integer(IK) , intent(out) :: neval
12064 integer(IK) , intent(out) :: nint
12065 integer(IK) :: err
12066 end function
12067#endif
12068
12069#if RK4_ENABLED
12070 module function QAGP_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12072 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK4
12073#endif
12074 use pm_kind, only: RKC => RK4
12075 procedure(real(RKC)) :: getFunc
12076 type(ninf_type) , intent(in) :: lb
12077 real(RKC) , intent(in) :: ub
12078 real(RKC) , intent(in) :: abstol
12079 real(RKC) , intent(in) :: reltol
12080 type(GK15_type) , intent(in) :: qrule
12081 real(RKC) , intent(in) , contiguous :: help(:)
12082 real(RKC) , intent(out) :: integral, abserr
12083 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12084 integer(IK) , intent(out) , contiguous :: sindex(:)
12085 integer(IK) , intent(out) :: neval
12086 integer(IK) , intent(out) :: nint
12087 integer(IK) :: err
12088 end function
12089#endif
12090
12091#if RK3_ENABLED
12092 module function QAGP_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12094 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK3
12095#endif
12096 use pm_kind, only: RKC => RK3
12097 procedure(real(RKC)) :: getFunc
12098 type(ninf_type) , intent(in) :: lb
12099 real(RKC) , intent(in) :: ub
12100 real(RKC) , intent(in) :: abstol
12101 real(RKC) , intent(in) :: reltol
12102 type(GK15_type) , intent(in) :: qrule
12103 real(RKC) , intent(in) , contiguous :: help(:)
12104 real(RKC) , intent(out) :: integral, abserr
12105 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12106 integer(IK) , intent(out) , contiguous :: sindex(:)
12107 integer(IK) , intent(out) :: neval
12108 integer(IK) , intent(out) :: nint
12109 integer(IK) :: err
12110 end function
12111#endif
12112
12113#if RK2_ENABLED
12114 module function QAGP_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12116 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK2
12117#endif
12118 use pm_kind, only: RKC => RK2
12119 procedure(real(RKC)) :: getFunc
12120 type(ninf_type) , intent(in) :: lb
12121 real(RKC) , intent(in) :: ub
12122 real(RKC) , intent(in) :: abstol
12123 real(RKC) , intent(in) :: reltol
12124 type(GK15_type) , intent(in) :: qrule
12125 real(RKC) , intent(in) , contiguous :: help(:)
12126 real(RKC) , intent(out) :: integral, abserr
12127 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12128 integer(IK) , intent(out) , contiguous :: sindex(:)
12129 integer(IK) , intent(out) :: neval
12130 integer(IK) , intent(out) :: nint
12131 integer(IK) :: err
12132 end function
12133#endif
12134
12135#if RK1_ENABLED
12136 module function QAGP_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12138 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK1
12139#endif
12140 use pm_kind, only: RKC => RK1
12141 procedure(real(RKC)) :: getFunc
12142 type(ninf_type) , intent(in) :: lb
12143 real(RKC) , intent(in) :: ub
12144 real(RKC) , intent(in) :: abstol
12145 real(RKC) , intent(in) :: reltol
12146 type(GK15_type) , intent(in) :: qrule
12147 real(RKC) , intent(in) , contiguous :: help(:)
12148 real(RKC) , intent(out) :: integral, abserr
12149 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12150 integer(IK) , intent(out) , contiguous :: sindex(:)
12151 integer(IK) , intent(out) :: neval
12152 integer(IK) , intent(out) :: nint
12153 integer(IK) :: err
12154 end function
12155#endif
12156
12157 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12158
12159#if RK5_ENABLED
12160 module function QAGP_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12162 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK5
12163#endif
12164 use pm_kind, only: RKC => RK5
12165 procedure(real(RKC)) :: getFunc
12166 type(ninf_type) , intent(in) :: lb
12167 type(pinf_type) , intent(in) :: ub
12168 real(RKC) , intent(in) :: abstol
12169 real(RKC) , intent(in) :: reltol
12170 type(GK15_type) , intent(in) :: qrule
12171 real(RKC) , intent(in) , contiguous :: help(:)
12172 real(RKC) , intent(out) :: integral, abserr
12173 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12174 integer(IK) , intent(out) , contiguous :: sindex(:)
12175 integer(IK) , intent(out) :: neval
12176 integer(IK) , intent(out) :: nint
12177 integer(IK) :: err
12178 end function
12179#endif
12180
12181#if RK4_ENABLED
12182 module function QAGP_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12184 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK4
12185#endif
12186 use pm_kind, only: RKC => RK4
12187 procedure(real(RKC)) :: getFunc
12188 type(ninf_type) , intent(in) :: lb
12189 type(pinf_type) , intent(in) :: ub
12190 real(RKC) , intent(in) :: abstol
12191 real(RKC) , intent(in) :: reltol
12192 type(GK15_type) , intent(in) :: qrule
12193 real(RKC) , intent(in) , contiguous :: help(:)
12194 real(RKC) , intent(out) :: integral, abserr
12195 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12196 integer(IK) , intent(out) , contiguous :: sindex(:)
12197 integer(IK) , intent(out) :: neval
12198 integer(IK) , intent(out) :: nint
12199 integer(IK) :: err
12200 end function
12201#endif
12202
12203#if RK3_ENABLED
12204 module function QAGP_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12206 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK3
12207#endif
12208 use pm_kind, only: RKC => RK3
12209 procedure(real(RKC)) :: getFunc
12210 type(ninf_type) , intent(in) :: lb
12211 type(pinf_type) , intent(in) :: ub
12212 real(RKC) , intent(in) :: abstol
12213 real(RKC) , intent(in) :: reltol
12214 type(GK15_type) , intent(in) :: qrule
12215 real(RKC) , intent(in) , contiguous :: help(:)
12216 real(RKC) , intent(out) :: integral, abserr
12217 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12218 integer(IK) , intent(out) , contiguous :: sindex(:)
12219 integer(IK) , intent(out) :: neval
12220 integer(IK) , intent(out) :: nint
12221 integer(IK) :: err
12222 end function
12223#endif
12224
12225#if RK2_ENABLED
12226 module function QAGP_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12228 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK2
12229#endif
12230 use pm_kind, only: RKC => RK2
12231 procedure(real(RKC)) :: getFunc
12232 type(ninf_type) , intent(in) :: lb
12233 type(pinf_type) , intent(in) :: ub
12234 real(RKC) , intent(in) :: abstol
12235 real(RKC) , intent(in) :: reltol
12236 type(GK15_type) , intent(in) :: qrule
12237 real(RKC) , intent(in) , contiguous :: help(:)
12238 real(RKC) , intent(out) :: integral, abserr
12239 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12240 integer(IK) , intent(out) , contiguous :: sindex(:)
12241 integer(IK) , intent(out) :: neval
12242 integer(IK) , intent(out) :: nint
12243 integer(IK) :: err
12244 end function
12245#endif
12246
12247#if RK1_ENABLED
12248 module function QAGP_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12250 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK1
12251#endif
12252 use pm_kind, only: RKC => RK1
12253 procedure(real(RKC)) :: getFunc
12254 type(ninf_type) , intent(in) :: lb
12255 type(pinf_type) , intent(in) :: ub
12256 real(RKC) , intent(in) :: abstol
12257 real(RKC) , intent(in) :: reltol
12258 type(GK15_type) , intent(in) :: qrule
12259 real(RKC) , intent(in) , contiguous :: help(:)
12260 real(RKC) , intent(out) :: integral, abserr
12261 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12262 integer(IK) , intent(out) , contiguous :: sindex(:)
12263 integer(IK) , intent(out) :: neval
12264 integer(IK) , intent(out) :: nint
12265 integer(IK) :: err
12266 end function
12267#endif
12268
12269 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12270
12271 end interface
12272
12273 ! QAGP_GK21
12274
12275 interface getQuadErr
12276
12277 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12278
12279#if RK5_ENABLED
12280 module function QAGP_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12282 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK5
12283#endif
12284 use pm_kind, only: RKC => RK5
12285 procedure(real(RKC)) :: getFunc
12286 real(RKC) , intent(in) :: lb
12287 real(RKC) , intent(in) :: ub
12288 real(RKC) , intent(in) :: abstol
12289 real(RKC) , intent(in) :: reltol
12290 type(GK21_type) , intent(in) :: qrule
12291 real(RKC) , intent(in) , contiguous :: help(:)
12292 real(RKC) , intent(out) :: integral, abserr
12293 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12294 integer(IK) , intent(out) , contiguous :: sindex(:)
12295 integer(IK) , intent(out) :: neval
12296 integer(IK) , intent(out) :: nint
12297 integer(IK) :: err
12298 end function
12299#endif
12300
12301#if RK4_ENABLED
12302 module function QAGP_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12304 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK4
12305#endif
12306 use pm_kind, only: RKC => RK4
12307 procedure(real(RKC)) :: getFunc
12308 real(RKC) , intent(in) :: lb
12309 real(RKC) , intent(in) :: ub
12310 real(RKC) , intent(in) :: abstol
12311 real(RKC) , intent(in) :: reltol
12312 type(GK21_type) , intent(in) :: qrule
12313 real(RKC) , intent(in) , contiguous :: help(:)
12314 real(RKC) , intent(out) :: integral, abserr
12315 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12316 integer(IK) , intent(out) , contiguous :: sindex(:)
12317 integer(IK) , intent(out) :: neval
12318 integer(IK) , intent(out) :: nint
12319 integer(IK) :: err
12320 end function
12321#endif
12322
12323#if RK3_ENABLED
12324 module function QAGP_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12326 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK3
12327#endif
12328 use pm_kind, only: RKC => RK3
12329 procedure(real(RKC)) :: getFunc
12330 real(RKC) , intent(in) :: lb
12331 real(RKC) , intent(in) :: ub
12332 real(RKC) , intent(in) :: abstol
12333 real(RKC) , intent(in) :: reltol
12334 type(GK21_type) , intent(in) :: qrule
12335 real(RKC) , intent(in) , contiguous :: help(:)
12336 real(RKC) , intent(out) :: integral, abserr
12337 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12338 integer(IK) , intent(out) , contiguous :: sindex(:)
12339 integer(IK) , intent(out) :: neval
12340 integer(IK) , intent(out) :: nint
12341 integer(IK) :: err
12342 end function
12343#endif
12344
12345#if RK2_ENABLED
12346 module function QAGP_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12348 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK2
12349#endif
12350 use pm_kind, only: RKC => RK2
12351 procedure(real(RKC)) :: getFunc
12352 real(RKC) , intent(in) :: lb
12353 real(RKC) , intent(in) :: ub
12354 real(RKC) , intent(in) :: abstol
12355 real(RKC) , intent(in) :: reltol
12356 type(GK21_type) , intent(in) :: qrule
12357 real(RKC) , intent(in) , contiguous :: help(:)
12358 real(RKC) , intent(out) :: integral, abserr
12359 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12360 integer(IK) , intent(out) , contiguous :: sindex(:)
12361 integer(IK) , intent(out) :: neval
12362 integer(IK) , intent(out) :: nint
12363 integer(IK) :: err
12364 end function
12365#endif
12366
12367#if RK1_ENABLED
12368 module function QAGP_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12370 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK1
12371#endif
12372 use pm_kind, only: RKC => RK1
12373 procedure(real(RKC)) :: getFunc
12374 real(RKC) , intent(in) :: lb
12375 real(RKC) , intent(in) :: ub
12376 real(RKC) , intent(in) :: abstol
12377 real(RKC) , intent(in) :: reltol
12378 type(GK21_type) , intent(in) :: qrule
12379 real(RKC) , intent(in) , contiguous :: help(:)
12380 real(RKC) , intent(out) :: integral, abserr
12381 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12382 integer(IK) , intent(out) , contiguous :: sindex(:)
12383 integer(IK) , intent(out) :: neval
12384 integer(IK) , intent(out) :: nint
12385 integer(IK) :: err
12386 end function
12387#endif
12388
12389 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12390
12391#if RK5_ENABLED
12392 module function QAGP_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12394 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK5
12395#endif
12396 use pm_kind, only: RKC => RK5
12397 procedure(real(RKC)) :: getFunc
12398 real(RKC) , intent(in) :: lb
12399 type(pinf_type) , intent(in) :: ub
12400 real(RKC) , intent(in) :: abstol
12401 real(RKC) , intent(in) :: reltol
12402 type(GK21_type) , intent(in) :: qrule
12403 real(RKC) , intent(in) , contiguous :: help(:)
12404 real(RKC) , intent(out) :: integral, abserr
12405 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12406 integer(IK) , intent(out) , contiguous :: sindex(:)
12407 integer(IK) , intent(out) :: neval
12408 integer(IK) , intent(out) :: nint
12409 integer(IK) :: err
12410 end function
12411#endif
12412
12413#if RK4_ENABLED
12414 module function QAGP_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12416 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK4
12417#endif
12418 use pm_kind, only: RKC => RK4
12419 procedure(real(RKC)) :: getFunc
12420 real(RKC) , intent(in) :: lb
12421 type(pinf_type) , intent(in) :: ub
12422 real(RKC) , intent(in) :: abstol
12423 real(RKC) , intent(in) :: reltol
12424 type(GK21_type) , intent(in) :: qrule
12425 real(RKC) , intent(in) , contiguous :: help(:)
12426 real(RKC) , intent(out) :: integral, abserr
12427 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12428 integer(IK) , intent(out) , contiguous :: sindex(:)
12429 integer(IK) , intent(out) :: neval
12430 integer(IK) , intent(out) :: nint
12431 integer(IK) :: err
12432 end function
12433#endif
12434
12435#if RK3_ENABLED
12436 module function QAGP_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12438 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK3
12439#endif
12440 use pm_kind, only: RKC => RK3
12441 procedure(real(RKC)) :: getFunc
12442 real(RKC) , intent(in) :: lb
12443 type(pinf_type) , intent(in) :: ub
12444 real(RKC) , intent(in) :: abstol
12445 real(RKC) , intent(in) :: reltol
12446 type(GK21_type) , intent(in) :: qrule
12447 real(RKC) , intent(in) , contiguous :: help(:)
12448 real(RKC) , intent(out) :: integral, abserr
12449 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12450 integer(IK) , intent(out) , contiguous :: sindex(:)
12451 integer(IK) , intent(out) :: neval
12452 integer(IK) , intent(out) :: nint
12453 integer(IK) :: err
12454 end function
12455#endif
12456
12457#if RK2_ENABLED
12458 module function QAGP_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12460 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK2
12461#endif
12462 use pm_kind, only: RKC => RK2
12463 procedure(real(RKC)) :: getFunc
12464 real(RKC) , intent(in) :: lb
12465 type(pinf_type) , intent(in) :: ub
12466 real(RKC) , intent(in) :: abstol
12467 real(RKC) , intent(in) :: reltol
12468 type(GK21_type) , intent(in) :: qrule
12469 real(RKC) , intent(in) , contiguous :: help(:)
12470 real(RKC) , intent(out) :: integral, abserr
12471 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12472 integer(IK) , intent(out) , contiguous :: sindex(:)
12473 integer(IK) , intent(out) :: neval
12474 integer(IK) , intent(out) :: nint
12475 integer(IK) :: err
12476 end function
12477#endif
12478
12479#if RK1_ENABLED
12480 module function QAGP_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12482 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK1
12483#endif
12484 use pm_kind, only: RKC => RK1
12485 procedure(real(RKC)) :: getFunc
12486 real(RKC) , intent(in) :: lb
12487 type(pinf_type) , intent(in) :: ub
12488 real(RKC) , intent(in) :: abstol
12489 real(RKC) , intent(in) :: reltol
12490 type(GK21_type) , intent(in) :: qrule
12491 real(RKC) , intent(in) , contiguous :: help(:)
12492 real(RKC) , intent(out) :: integral, abserr
12493 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12494 integer(IK) , intent(out) , contiguous :: sindex(:)
12495 integer(IK) , intent(out) :: neval
12496 integer(IK) , intent(out) :: nint
12497 integer(IK) :: err
12498 end function
12499#endif
12500
12501 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12502
12503#if RK5_ENABLED
12504 module function QAGP_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12506 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK5
12507#endif
12508 use pm_kind, only: RKC => RK5
12509 procedure(real(RKC)) :: getFunc
12510 type(ninf_type) , intent(in) :: lb
12511 real(RKC) , intent(in) :: ub
12512 real(RKC) , intent(in) :: abstol
12513 real(RKC) , intent(in) :: reltol
12514 type(GK21_type) , intent(in) :: qrule
12515 real(RKC) , intent(in) , contiguous :: help(:)
12516 real(RKC) , intent(out) :: integral, abserr
12517 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12518 integer(IK) , intent(out) , contiguous :: sindex(:)
12519 integer(IK) , intent(out) :: neval
12520 integer(IK) , intent(out) :: nint
12521 integer(IK) :: err
12522 end function
12523#endif
12524
12525#if RK4_ENABLED
12526 module function QAGP_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12528 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK4
12529#endif
12530 use pm_kind, only: RKC => RK4
12531 procedure(real(RKC)) :: getFunc
12532 type(ninf_type) , intent(in) :: lb
12533 real(RKC) , intent(in) :: ub
12534 real(RKC) , intent(in) :: abstol
12535 real(RKC) , intent(in) :: reltol
12536 type(GK21_type) , intent(in) :: qrule
12537 real(RKC) , intent(in) , contiguous :: help(:)
12538 real(RKC) , intent(out) :: integral, abserr
12539 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12540 integer(IK) , intent(out) , contiguous :: sindex(:)
12541 integer(IK) , intent(out) :: neval
12542 integer(IK) , intent(out) :: nint
12543 integer(IK) :: err
12544 end function
12545#endif
12546
12547#if RK3_ENABLED
12548 module function QAGP_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12550 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK3
12551#endif
12552 use pm_kind, only: RKC => RK3
12553 procedure(real(RKC)) :: getFunc
12554 type(ninf_type) , intent(in) :: lb
12555 real(RKC) , intent(in) :: ub
12556 real(RKC) , intent(in) :: abstol
12557 real(RKC) , intent(in) :: reltol
12558 type(GK21_type) , intent(in) :: qrule
12559 real(RKC) , intent(in) , contiguous :: help(:)
12560 real(RKC) , intent(out) :: integral, abserr
12561 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12562 integer(IK) , intent(out) , contiguous :: sindex(:)
12563 integer(IK) , intent(out) :: neval
12564 integer(IK) , intent(out) :: nint
12565 integer(IK) :: err
12566 end function
12567#endif
12568
12569#if RK2_ENABLED
12570 module function QAGP_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12572 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK2
12573#endif
12574 use pm_kind, only: RKC => RK2
12575 procedure(real(RKC)) :: getFunc
12576 type(ninf_type) , intent(in) :: lb
12577 real(RKC) , intent(in) :: ub
12578 real(RKC) , intent(in) :: abstol
12579 real(RKC) , intent(in) :: reltol
12580 type(GK21_type) , intent(in) :: qrule
12581 real(RKC) , intent(in) , contiguous :: help(:)
12582 real(RKC) , intent(out) :: integral, abserr
12583 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12584 integer(IK) , intent(out) , contiguous :: sindex(:)
12585 integer(IK) , intent(out) :: neval
12586 integer(IK) , intent(out) :: nint
12587 integer(IK) :: err
12588 end function
12589#endif
12590
12591#if RK1_ENABLED
12592 module function QAGP_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12594 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK1
12595#endif
12596 use pm_kind, only: RKC => RK1
12597 procedure(real(RKC)) :: getFunc
12598 type(ninf_type) , intent(in) :: lb
12599 real(RKC) , intent(in) :: ub
12600 real(RKC) , intent(in) :: abstol
12601 real(RKC) , intent(in) :: reltol
12602 type(GK21_type) , intent(in) :: qrule
12603 real(RKC) , intent(in) , contiguous :: help(:)
12604 real(RKC) , intent(out) :: integral, abserr
12605 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12606 integer(IK) , intent(out) , contiguous :: sindex(:)
12607 integer(IK) , intent(out) :: neval
12608 integer(IK) , intent(out) :: nint
12609 integer(IK) :: err
12610 end function
12611#endif
12612
12613 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12614
12615#if RK5_ENABLED
12616 module function QAGP_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12618 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK5
12619#endif
12620 use pm_kind, only: RKC => RK5
12621 procedure(real(RKC)) :: getFunc
12622 type(ninf_type) , intent(in) :: lb
12623 type(pinf_type) , intent(in) :: ub
12624 real(RKC) , intent(in) :: abstol
12625 real(RKC) , intent(in) :: reltol
12626 type(GK21_type) , intent(in) :: qrule
12627 real(RKC) , intent(in) , contiguous :: help(:)
12628 real(RKC) , intent(out) :: integral, abserr
12629 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12630 integer(IK) , intent(out) , contiguous :: sindex(:)
12631 integer(IK) , intent(out) :: neval
12632 integer(IK) , intent(out) :: nint
12633 integer(IK) :: err
12634 end function
12635#endif
12636
12637#if RK4_ENABLED
12638 module function QAGP_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12640 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK4
12641#endif
12642 use pm_kind, only: RKC => RK4
12643 procedure(real(RKC)) :: getFunc
12644 type(ninf_type) , intent(in) :: lb
12645 type(pinf_type) , intent(in) :: ub
12646 real(RKC) , intent(in) :: abstol
12647 real(RKC) , intent(in) :: reltol
12648 type(GK21_type) , intent(in) :: qrule
12649 real(RKC) , intent(in) , contiguous :: help(:)
12650 real(RKC) , intent(out) :: integral, abserr
12651 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12652 integer(IK) , intent(out) , contiguous :: sindex(:)
12653 integer(IK) , intent(out) :: neval
12654 integer(IK) , intent(out) :: nint
12655 integer(IK) :: err
12656 end function
12657#endif
12658
12659#if RK3_ENABLED
12660 module function QAGP_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12661#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12662 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK3
12663#endif
12664 use pm_kind, only: RKC => RK3
12665 procedure(real(RKC)) :: getFunc
12666 type(ninf_type) , intent(in) :: lb
12667 type(pinf_type) , intent(in) :: ub
12668 real(RKC) , intent(in) :: abstol
12669 real(RKC) , intent(in) :: reltol
12670 type(GK21_type) , intent(in) :: qrule
12671 real(RKC) , intent(in) , contiguous :: help(:)
12672 real(RKC) , intent(out) :: integral, abserr
12673 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12674 integer(IK) , intent(out) , contiguous :: sindex(:)
12675 integer(IK) , intent(out) :: neval
12676 integer(IK) , intent(out) :: nint
12677 integer(IK) :: err
12678 end function
12679#endif
12680
12681#if RK2_ENABLED
12682 module function QAGP_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12683#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12684 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK2
12685#endif
12686 use pm_kind, only: RKC => RK2
12687 procedure(real(RKC)) :: getFunc
12688 type(ninf_type) , intent(in) :: lb
12689 type(pinf_type) , intent(in) :: ub
12690 real(RKC) , intent(in) :: abstol
12691 real(RKC) , intent(in) :: reltol
12692 type(GK21_type) , intent(in) :: qrule
12693 real(RKC) , intent(in) , contiguous :: help(:)
12694 real(RKC) , intent(out) :: integral, abserr
12695 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12696 integer(IK) , intent(out) , contiguous :: sindex(:)
12697 integer(IK) , intent(out) :: neval
12698 integer(IK) , intent(out) :: nint
12699 integer(IK) :: err
12700 end function
12701#endif
12702
12703#if RK1_ENABLED
12704 module function QAGP_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12706 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK1
12707#endif
12708 use pm_kind, only: RKC => RK1
12709 procedure(real(RKC)) :: getFunc
12710 type(ninf_type) , intent(in) :: lb
12711 type(pinf_type) , intent(in) :: ub
12712 real(RKC) , intent(in) :: abstol
12713 real(RKC) , intent(in) :: reltol
12714 type(GK21_type) , intent(in) :: qrule
12715 real(RKC) , intent(in) , contiguous :: help(:)
12716 real(RKC) , intent(out) :: integral, abserr
12717 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12718 integer(IK) , intent(out) , contiguous :: sindex(:)
12719 integer(IK) , intent(out) :: neval
12720 integer(IK) , intent(out) :: nint
12721 integer(IK) :: err
12722 end function
12723#endif
12724
12725 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12726
12727 end interface
12728
12729 ! QAGP_GK31
12730
12731 interface getQuadErr
12732
12733 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12734
12735#if RK5_ENABLED
12736 module function QAGP_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12738 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK5
12739#endif
12740 use pm_kind, only: RKC => RK5
12741 procedure(real(RKC)) :: getFunc
12742 real(RKC) , intent(in) :: lb
12743 real(RKC) , intent(in) :: ub
12744 real(RKC) , intent(in) :: abstol
12745 real(RKC) , intent(in) :: reltol
12746 type(GK31_type) , intent(in) :: qrule
12747 real(RKC) , intent(in) , contiguous :: help(:)
12748 real(RKC) , intent(out) :: integral, abserr
12749 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12750 integer(IK) , intent(out) , contiguous :: sindex(:)
12751 integer(IK) , intent(out) :: neval
12752 integer(IK) , intent(out) :: nint
12753 integer(IK) :: err
12754 end function
12755#endif
12756
12757#if RK4_ENABLED
12758 module function QAGP_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12760 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK4
12761#endif
12762 use pm_kind, only: RKC => RK4
12763 procedure(real(RKC)) :: getFunc
12764 real(RKC) , intent(in) :: lb
12765 real(RKC) , intent(in) :: ub
12766 real(RKC) , intent(in) :: abstol
12767 real(RKC) , intent(in) :: reltol
12768 type(GK31_type) , intent(in) :: qrule
12769 real(RKC) , intent(in) , contiguous :: help(:)
12770 real(RKC) , intent(out) :: integral, abserr
12771 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12772 integer(IK) , intent(out) , contiguous :: sindex(:)
12773 integer(IK) , intent(out) :: neval
12774 integer(IK) , intent(out) :: nint
12775 integer(IK) :: err
12776 end function
12777#endif
12778
12779#if RK3_ENABLED
12780 module function QAGP_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12782 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK3
12783#endif
12784 use pm_kind, only: RKC => RK3
12785 procedure(real(RKC)) :: getFunc
12786 real(RKC) , intent(in) :: lb
12787 real(RKC) , intent(in) :: ub
12788 real(RKC) , intent(in) :: abstol
12789 real(RKC) , intent(in) :: reltol
12790 type(GK31_type) , intent(in) :: qrule
12791 real(RKC) , intent(in) , contiguous :: help(:)
12792 real(RKC) , intent(out) :: integral, abserr
12793 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12794 integer(IK) , intent(out) , contiguous :: sindex(:)
12795 integer(IK) , intent(out) :: neval
12796 integer(IK) , intent(out) :: nint
12797 integer(IK) :: err
12798 end function
12799#endif
12800
12801#if RK2_ENABLED
12802 module function QAGP_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12804 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK2
12805#endif
12806 use pm_kind, only: RKC => RK2
12807 procedure(real(RKC)) :: getFunc
12808 real(RKC) , intent(in) :: lb
12809 real(RKC) , intent(in) :: ub
12810 real(RKC) , intent(in) :: abstol
12811 real(RKC) , intent(in) :: reltol
12812 type(GK31_type) , intent(in) :: qrule
12813 real(RKC) , intent(in) , contiguous :: help(:)
12814 real(RKC) , intent(out) :: integral, abserr
12815 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12816 integer(IK) , intent(out) , contiguous :: sindex(:)
12817 integer(IK) , intent(out) :: neval
12818 integer(IK) , intent(out) :: nint
12819 integer(IK) :: err
12820 end function
12821#endif
12822
12823#if RK1_ENABLED
12824 module function QAGP_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12825#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12826 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK1
12827#endif
12828 use pm_kind, only: RKC => RK1
12829 procedure(real(RKC)) :: getFunc
12830 real(RKC) , intent(in) :: lb
12831 real(RKC) , intent(in) :: ub
12832 real(RKC) , intent(in) :: abstol
12833 real(RKC) , intent(in) :: reltol
12834 type(GK31_type) , intent(in) :: qrule
12835 real(RKC) , intent(in) , contiguous :: help(:)
12836 real(RKC) , intent(out) :: integral, abserr
12837 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12838 integer(IK) , intent(out) , contiguous :: sindex(:)
12839 integer(IK) , intent(out) :: neval
12840 integer(IK) , intent(out) :: nint
12841 integer(IK) :: err
12842 end function
12843#endif
12844
12845 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12846
12847#if RK5_ENABLED
12848 module function QAGP_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12850 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK5
12851#endif
12852 use pm_kind, only: RKC => RK5
12853 procedure(real(RKC)) :: getFunc
12854 real(RKC) , intent(in) :: lb
12855 type(pinf_type) , intent(in) :: ub
12856 real(RKC) , intent(in) :: abstol
12857 real(RKC) , intent(in) :: reltol
12858 type(GK31_type) , intent(in) :: qrule
12859 real(RKC) , intent(in) , contiguous :: help(:)
12860 real(RKC) , intent(out) :: integral, abserr
12861 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12862 integer(IK) , intent(out) , contiguous :: sindex(:)
12863 integer(IK) , intent(out) :: neval
12864 integer(IK) , intent(out) :: nint
12865 integer(IK) :: err
12866 end function
12867#endif
12868
12869#if RK4_ENABLED
12870 module function QAGP_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12872 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK4
12873#endif
12874 use pm_kind, only: RKC => RK4
12875 procedure(real(RKC)) :: getFunc
12876 real(RKC) , intent(in) :: lb
12877 type(pinf_type) , intent(in) :: ub
12878 real(RKC) , intent(in) :: abstol
12879 real(RKC) , intent(in) :: reltol
12880 type(GK31_type) , intent(in) :: qrule
12881 real(RKC) , intent(in) , contiguous :: help(:)
12882 real(RKC) , intent(out) :: integral, abserr
12883 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12884 integer(IK) , intent(out) , contiguous :: sindex(:)
12885 integer(IK) , intent(out) :: neval
12886 integer(IK) , intent(out) :: nint
12887 integer(IK) :: err
12888 end function
12889#endif
12890
12891#if RK3_ENABLED
12892 module function QAGP_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12894 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK3
12895#endif
12896 use pm_kind, only: RKC => RK3
12897 procedure(real(RKC)) :: getFunc
12898 real(RKC) , intent(in) :: lb
12899 type(pinf_type) , intent(in) :: ub
12900 real(RKC) , intent(in) :: abstol
12901 real(RKC) , intent(in) :: reltol
12902 type(GK31_type) , intent(in) :: qrule
12903 real(RKC) , intent(in) , contiguous :: help(:)
12904 real(RKC) , intent(out) :: integral, abserr
12905 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12906 integer(IK) , intent(out) , contiguous :: sindex(:)
12907 integer(IK) , intent(out) :: neval
12908 integer(IK) , intent(out) :: nint
12909 integer(IK) :: err
12910 end function
12911#endif
12912
12913#if RK2_ENABLED
12914 module function QAGP_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12916 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK2
12917#endif
12918 use pm_kind, only: RKC => RK2
12919 procedure(real(RKC)) :: getFunc
12920 real(RKC) , intent(in) :: lb
12921 type(pinf_type) , intent(in) :: ub
12922 real(RKC) , intent(in) :: abstol
12923 real(RKC) , intent(in) :: reltol
12924 type(GK31_type) , intent(in) :: qrule
12925 real(RKC) , intent(in) , contiguous :: help(:)
12926 real(RKC) , intent(out) :: integral, abserr
12927 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12928 integer(IK) , intent(out) , contiguous :: sindex(:)
12929 integer(IK) , intent(out) :: neval
12930 integer(IK) , intent(out) :: nint
12931 integer(IK) :: err
12932 end function
12933#endif
12934
12935#if RK1_ENABLED
12936 module function QAGP_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12938 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK1
12939#endif
12940 use pm_kind, only: RKC => RK1
12941 procedure(real(RKC)) :: getFunc
12942 real(RKC) , intent(in) :: lb
12943 type(pinf_type) , intent(in) :: ub
12944 real(RKC) , intent(in) :: abstol
12945 real(RKC) , intent(in) :: reltol
12946 type(GK31_type) , intent(in) :: qrule
12947 real(RKC) , intent(in) , contiguous :: help(:)
12948 real(RKC) , intent(out) :: integral, abserr
12949 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12950 integer(IK) , intent(out) , contiguous :: sindex(:)
12951 integer(IK) , intent(out) :: neval
12952 integer(IK) , intent(out) :: nint
12953 integer(IK) :: err
12954 end function
12955#endif
12956
12957 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12958
12959#if RK5_ENABLED
12960 module function QAGP_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12962 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK5
12963#endif
12964 use pm_kind, only: RKC => RK5
12965 procedure(real(RKC)) :: getFunc
12966 type(ninf_type) , intent(in) :: lb
12967 real(RKC) , intent(in) :: ub
12968 real(RKC) , intent(in) :: abstol
12969 real(RKC) , intent(in) :: reltol
12970 type(GK31_type) , intent(in) :: qrule
12971 real(RKC) , intent(in) , contiguous :: help(:)
12972 real(RKC) , intent(out) :: integral, abserr
12973 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12974 integer(IK) , intent(out) , contiguous :: sindex(:)
12975 integer(IK) , intent(out) :: neval
12976 integer(IK) , intent(out) :: nint
12977 integer(IK) :: err
12978 end function
12979#endif
12980
12981#if RK4_ENABLED
12982 module function QAGP_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12984 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK4
12985#endif
12986 use pm_kind, only: RKC => RK4
12987 procedure(real(RKC)) :: getFunc
12988 type(ninf_type) , intent(in) :: lb
12989 real(RKC) , intent(in) :: ub
12990 real(RKC) , intent(in) :: abstol
12991 real(RKC) , intent(in) :: reltol
12992 type(GK31_type) , intent(in) :: qrule
12993 real(RKC) , intent(in) , contiguous :: help(:)
12994 real(RKC) , intent(out) :: integral, abserr
12995 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12996 integer(IK) , intent(out) , contiguous :: sindex(:)
12997 integer(IK) , intent(out) :: neval
12998 integer(IK) , intent(out) :: nint
12999 integer(IK) :: err
13000 end function
13001#endif
13002
13003#if RK3_ENABLED
13004 module function QAGP_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13006 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK3
13007#endif
13008 use pm_kind, only: RKC => RK3
13009 procedure(real(RKC)) :: getFunc
13010 type(ninf_type) , intent(in) :: lb
13011 real(RKC) , intent(in) :: ub
13012 real(RKC) , intent(in) :: abstol
13013 real(RKC) , intent(in) :: reltol
13014 type(GK31_type) , intent(in) :: qrule
13015 real(RKC) , intent(in) , contiguous :: help(:)
13016 real(RKC) , intent(out) :: integral, abserr
13017 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13018 integer(IK) , intent(out) , contiguous :: sindex(:)
13019 integer(IK) , intent(out) :: neval
13020 integer(IK) , intent(out) :: nint
13021 integer(IK) :: err
13022 end function
13023#endif
13024
13025#if RK2_ENABLED
13026 module function QAGP_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13028 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK2
13029#endif
13030 use pm_kind, only: RKC => RK2
13031 procedure(real(RKC)) :: getFunc
13032 type(ninf_type) , intent(in) :: lb
13033 real(RKC) , intent(in) :: ub
13034 real(RKC) , intent(in) :: abstol
13035 real(RKC) , intent(in) :: reltol
13036 type(GK31_type) , intent(in) :: qrule
13037 real(RKC) , intent(in) , contiguous :: help(:)
13038 real(RKC) , intent(out) :: integral, abserr
13039 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13040 integer(IK) , intent(out) , contiguous :: sindex(:)
13041 integer(IK) , intent(out) :: neval
13042 integer(IK) , intent(out) :: nint
13043 integer(IK) :: err
13044 end function
13045#endif
13046
13047#if RK1_ENABLED
13048 module function QAGP_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13050 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK1
13051#endif
13052 use pm_kind, only: RKC => RK1
13053 procedure(real(RKC)) :: getFunc
13054 type(ninf_type) , intent(in) :: lb
13055 real(RKC) , intent(in) :: ub
13056 real(RKC) , intent(in) :: abstol
13057 real(RKC) , intent(in) :: reltol
13058 type(GK31_type) , intent(in) :: qrule
13059 real(RKC) , intent(in) , contiguous :: help(:)
13060 real(RKC) , intent(out) :: integral, abserr
13061 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13062 integer(IK) , intent(out) , contiguous :: sindex(:)
13063 integer(IK) , intent(out) :: neval
13064 integer(IK) , intent(out) :: nint
13065 integer(IK) :: err
13066 end function
13067#endif
13068
13069 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13070
13071#if RK5_ENABLED
13072 module function QAGP_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13074 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK5
13075#endif
13076 use pm_kind, only: RKC => RK5
13077 procedure(real(RKC)) :: getFunc
13078 type(ninf_type) , intent(in) :: lb
13079 type(pinf_type) , intent(in) :: ub
13080 real(RKC) , intent(in) :: abstol
13081 real(RKC) , intent(in) :: reltol
13082 type(GK31_type) , intent(in) :: qrule
13083 real(RKC) , intent(in) , contiguous :: help(:)
13084 real(RKC) , intent(out) :: integral, abserr
13085 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13086 integer(IK) , intent(out) , contiguous :: sindex(:)
13087 integer(IK) , intent(out) :: neval
13088 integer(IK) , intent(out) :: nint
13089 integer(IK) :: err
13090 end function
13091#endif
13092
13093#if RK4_ENABLED
13094 module function QAGP_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13096 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK4
13097#endif
13098 use pm_kind, only: RKC => RK4
13099 procedure(real(RKC)) :: getFunc
13100 type(ninf_type) , intent(in) :: lb
13101 type(pinf_type) , intent(in) :: ub
13102 real(RKC) , intent(in) :: abstol
13103 real(RKC) , intent(in) :: reltol
13104 type(GK31_type) , intent(in) :: qrule
13105 real(RKC) , intent(in) , contiguous :: help(:)
13106 real(RKC) , intent(out) :: integral, abserr
13107 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13108 integer(IK) , intent(out) , contiguous :: sindex(:)
13109 integer(IK) , intent(out) :: neval
13110 integer(IK) , intent(out) :: nint
13111 integer(IK) :: err
13112 end function
13113#endif
13114
13115#if RK3_ENABLED
13116 module function QAGP_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13118 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK3
13119#endif
13120 use pm_kind, only: RKC => RK3
13121 procedure(real(RKC)) :: getFunc
13122 type(ninf_type) , intent(in) :: lb
13123 type(pinf_type) , intent(in) :: ub
13124 real(RKC) , intent(in) :: abstol
13125 real(RKC) , intent(in) :: reltol
13126 type(GK31_type) , intent(in) :: qrule
13127 real(RKC) , intent(in) , contiguous :: help(:)
13128 real(RKC) , intent(out) :: integral, abserr
13129 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13130 integer(IK) , intent(out) , contiguous :: sindex(:)
13131 integer(IK) , intent(out) :: neval
13132 integer(IK) , intent(out) :: nint
13133 integer(IK) :: err
13134 end function
13135#endif
13136
13137#if RK2_ENABLED
13138 module function QAGP_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13140 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK2
13141#endif
13142 use pm_kind, only: RKC => RK2
13143 procedure(real(RKC)) :: getFunc
13144 type(ninf_type) , intent(in) :: lb
13145 type(pinf_type) , intent(in) :: ub
13146 real(RKC) , intent(in) :: abstol
13147 real(RKC) , intent(in) :: reltol
13148 type(GK31_type) , intent(in) :: qrule
13149 real(RKC) , intent(in) , contiguous :: help(:)
13150 real(RKC) , intent(out) :: integral, abserr
13151 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13152 integer(IK) , intent(out) , contiguous :: sindex(:)
13153 integer(IK) , intent(out) :: neval
13154 integer(IK) , intent(out) :: nint
13155 integer(IK) :: err
13156 end function
13157#endif
13158
13159#if RK1_ENABLED
13160 module function QAGP_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13162 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK1
13163#endif
13164 use pm_kind, only: RKC => RK1
13165 procedure(real(RKC)) :: getFunc
13166 type(ninf_type) , intent(in) :: lb
13167 type(pinf_type) , intent(in) :: ub
13168 real(RKC) , intent(in) :: abstol
13169 real(RKC) , intent(in) :: reltol
13170 type(GK31_type) , intent(in) :: qrule
13171 real(RKC) , intent(in) , contiguous :: help(:)
13172 real(RKC) , intent(out) :: integral, abserr
13173 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13174 integer(IK) , intent(out) , contiguous :: sindex(:)
13175 integer(IK) , intent(out) :: neval
13176 integer(IK) , intent(out) :: nint
13177 integer(IK) :: err
13178 end function
13179#endif
13180
13181 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13182
13183 end interface
13184
13185 ! QAGP_GK41
13186
13187 interface getQuadErr
13188
13189 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13190
13191#if RK5_ENABLED
13192 module function QAGP_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13194 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK5
13195#endif
13196 use pm_kind, only: RKC => RK5
13197 procedure(real(RKC)) :: getFunc
13198 real(RKC) , intent(in) :: lb
13199 real(RKC) , intent(in) :: ub
13200 real(RKC) , intent(in) :: abstol
13201 real(RKC) , intent(in) :: reltol
13202 type(GK41_type) , intent(in) :: qrule
13203 real(RKC) , intent(in) , contiguous :: help(:)
13204 real(RKC) , intent(out) :: integral, abserr
13205 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13206 integer(IK) , intent(out) , contiguous :: sindex(:)
13207 integer(IK) , intent(out) :: neval
13208 integer(IK) , intent(out) :: nint
13209 integer(IK) :: err
13210 end function
13211#endif
13212
13213#if RK4_ENABLED
13214 module function QAGP_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13216 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK4
13217#endif
13218 use pm_kind, only: RKC => RK4
13219 procedure(real(RKC)) :: getFunc
13220 real(RKC) , intent(in) :: lb
13221 real(RKC) , intent(in) :: ub
13222 real(RKC) , intent(in) :: abstol
13223 real(RKC) , intent(in) :: reltol
13224 type(GK41_type) , intent(in) :: qrule
13225 real(RKC) , intent(in) , contiguous :: help(:)
13226 real(RKC) , intent(out) :: integral, abserr
13227 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13228 integer(IK) , intent(out) , contiguous :: sindex(:)
13229 integer(IK) , intent(out) :: neval
13230 integer(IK) , intent(out) :: nint
13231 integer(IK) :: err
13232 end function
13233#endif
13234
13235#if RK3_ENABLED
13236 module function QAGP_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13238 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK3
13239#endif
13240 use pm_kind, only: RKC => RK3
13241 procedure(real(RKC)) :: getFunc
13242 real(RKC) , intent(in) :: lb
13243 real(RKC) , intent(in) :: ub
13244 real(RKC) , intent(in) :: abstol
13245 real(RKC) , intent(in) :: reltol
13246 type(GK41_type) , intent(in) :: qrule
13247 real(RKC) , intent(in) , contiguous :: help(:)
13248 real(RKC) , intent(out) :: integral, abserr
13249 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13250 integer(IK) , intent(out) , contiguous :: sindex(:)
13251 integer(IK) , intent(out) :: neval
13252 integer(IK) , intent(out) :: nint
13253 integer(IK) :: err
13254 end function
13255#endif
13256
13257#if RK2_ENABLED
13258 module function QAGP_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13260 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK2
13261#endif
13262 use pm_kind, only: RKC => RK2
13263 procedure(real(RKC)) :: getFunc
13264 real(RKC) , intent(in) :: lb
13265 real(RKC) , intent(in) :: ub
13266 real(RKC) , intent(in) :: abstol
13267 real(RKC) , intent(in) :: reltol
13268 type(GK41_type) , intent(in) :: qrule
13269 real(RKC) , intent(in) , contiguous :: help(:)
13270 real(RKC) , intent(out) :: integral, abserr
13271 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13272 integer(IK) , intent(out) , contiguous :: sindex(:)
13273 integer(IK) , intent(out) :: neval
13274 integer(IK) , intent(out) :: nint
13275 integer(IK) :: err
13276 end function
13277#endif
13278
13279#if RK1_ENABLED
13280 module function QAGP_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13282 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK1
13283#endif
13284 use pm_kind, only: RKC => RK1
13285 procedure(real(RKC)) :: getFunc
13286 real(RKC) , intent(in) :: lb
13287 real(RKC) , intent(in) :: ub
13288 real(RKC) , intent(in) :: abstol
13289 real(RKC) , intent(in) :: reltol
13290 type(GK41_type) , intent(in) :: qrule
13291 real(RKC) , intent(in) , contiguous :: help(:)
13292 real(RKC) , intent(out) :: integral, abserr
13293 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13294 integer(IK) , intent(out) , contiguous :: sindex(:)
13295 integer(IK) , intent(out) :: neval
13296 integer(IK) , intent(out) :: nint
13297 integer(IK) :: err
13298 end function
13299#endif
13300
13301 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13302
13303#if RK5_ENABLED
13304 module function QAGP_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13306 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK5
13307#endif
13308 use pm_kind, only: RKC => RK5
13309 procedure(real(RKC)) :: getFunc
13310 real(RKC) , intent(in) :: lb
13311 type(pinf_type) , intent(in) :: ub
13312 real(RKC) , intent(in) :: abstol
13313 real(RKC) , intent(in) :: reltol
13314 type(GK41_type) , intent(in) :: qrule
13315 real(RKC) , intent(in) , contiguous :: help(:)
13316 real(RKC) , intent(out) :: integral, abserr
13317 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13318 integer(IK) , intent(out) , contiguous :: sindex(:)
13319 integer(IK) , intent(out) :: neval
13320 integer(IK) , intent(out) :: nint
13321 integer(IK) :: err
13322 end function
13323#endif
13324
13325#if RK4_ENABLED
13326 module function QAGP_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13328 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK4
13329#endif
13330 use pm_kind, only: RKC => RK4
13331 procedure(real(RKC)) :: getFunc
13332 real(RKC) , intent(in) :: lb
13333 type(pinf_type) , intent(in) :: ub
13334 real(RKC) , intent(in) :: abstol
13335 real(RKC) , intent(in) :: reltol
13336 type(GK41_type) , intent(in) :: qrule
13337 real(RKC) , intent(in) , contiguous :: help(:)
13338 real(RKC) , intent(out) :: integral, abserr
13339 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13340 integer(IK) , intent(out) , contiguous :: sindex(:)
13341 integer(IK) , intent(out) :: neval
13342 integer(IK) , intent(out) :: nint
13343 integer(IK) :: err
13344 end function
13345#endif
13346
13347#if RK3_ENABLED
13348 module function QAGP_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13350 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK3
13351#endif
13352 use pm_kind, only: RKC => RK3
13353 procedure(real(RKC)) :: getFunc
13354 real(RKC) , intent(in) :: lb
13355 type(pinf_type) , intent(in) :: ub
13356 real(RKC) , intent(in) :: abstol
13357 real(RKC) , intent(in) :: reltol
13358 type(GK41_type) , intent(in) :: qrule
13359 real(RKC) , intent(in) , contiguous :: help(:)
13360 real(RKC) , intent(out) :: integral, abserr
13361 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13362 integer(IK) , intent(out) , contiguous :: sindex(:)
13363 integer(IK) , intent(out) :: neval
13364 integer(IK) , intent(out) :: nint
13365 integer(IK) :: err
13366 end function
13367#endif
13368
13369#if RK2_ENABLED
13370 module function QAGP_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13372 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK2
13373#endif
13374 use pm_kind, only: RKC => RK2
13375 procedure(real(RKC)) :: getFunc
13376 real(RKC) , intent(in) :: lb
13377 type(pinf_type) , intent(in) :: ub
13378 real(RKC) , intent(in) :: abstol
13379 real(RKC) , intent(in) :: reltol
13380 type(GK41_type) , intent(in) :: qrule
13381 real(RKC) , intent(in) , contiguous :: help(:)
13382 real(RKC) , intent(out) :: integral, abserr
13383 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13384 integer(IK) , intent(out) , contiguous :: sindex(:)
13385 integer(IK) , intent(out) :: neval
13386 integer(IK) , intent(out) :: nint
13387 integer(IK) :: err
13388 end function
13389#endif
13390
13391#if RK1_ENABLED
13392 module function QAGP_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13394 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK1
13395#endif
13396 use pm_kind, only: RKC => RK1
13397 procedure(real(RKC)) :: getFunc
13398 real(RKC) , intent(in) :: lb
13399 type(pinf_type) , intent(in) :: ub
13400 real(RKC) , intent(in) :: abstol
13401 real(RKC) , intent(in) :: reltol
13402 type(GK41_type) , intent(in) :: qrule
13403 real(RKC) , intent(in) , contiguous :: help(:)
13404 real(RKC) , intent(out) :: integral, abserr
13405 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13406 integer(IK) , intent(out) , contiguous :: sindex(:)
13407 integer(IK) , intent(out) :: neval
13408 integer(IK) , intent(out) :: nint
13409 integer(IK) :: err
13410 end function
13411#endif
13412
13413 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13414
13415#if RK5_ENABLED
13416 module function QAGP_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13418 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK5
13419#endif
13420 use pm_kind, only: RKC => RK5
13421 procedure(real(RKC)) :: getFunc
13422 type(ninf_type) , intent(in) :: lb
13423 real(RKC) , intent(in) :: ub
13424 real(RKC) , intent(in) :: abstol
13425 real(RKC) , intent(in) :: reltol
13426 type(GK41_type) , intent(in) :: qrule
13427 real(RKC) , intent(in) , contiguous :: help(:)
13428 real(RKC) , intent(out) :: integral, abserr
13429 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13430 integer(IK) , intent(out) , contiguous :: sindex(:)
13431 integer(IK) , intent(out) :: neval
13432 integer(IK) , intent(out) :: nint
13433 integer(IK) :: err
13434 end function
13435#endif
13436
13437#if RK4_ENABLED
13438 module function QAGP_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13440 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK4
13441#endif
13442 use pm_kind, only: RKC => RK4
13443 procedure(real(RKC)) :: getFunc
13444 type(ninf_type) , intent(in) :: lb
13445 real(RKC) , intent(in) :: ub
13446 real(RKC) , intent(in) :: abstol
13447 real(RKC) , intent(in) :: reltol
13448 type(GK41_type) , intent(in) :: qrule
13449 real(RKC) , intent(in) , contiguous :: help(:)
13450 real(RKC) , intent(out) :: integral, abserr
13451 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13452 integer(IK) , intent(out) , contiguous :: sindex(:)
13453 integer(IK) , intent(out) :: neval
13454 integer(IK) , intent(out) :: nint
13455 integer(IK) :: err
13456 end function
13457#endif
13458
13459#if RK3_ENABLED
13460 module function QAGP_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13462 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK3
13463#endif
13464 use pm_kind, only: RKC => RK3
13465 procedure(real(RKC)) :: getFunc
13466 type(ninf_type) , intent(in) :: lb
13467 real(RKC) , intent(in) :: ub
13468 real(RKC) , intent(in) :: abstol
13469 real(RKC) , intent(in) :: reltol
13470 type(GK41_type) , intent(in) :: qrule
13471 real(RKC) , intent(in) , contiguous :: help(:)
13472 real(RKC) , intent(out) :: integral, abserr
13473 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13474 integer(IK) , intent(out) , contiguous :: sindex(:)
13475 integer(IK) , intent(out) :: neval
13476 integer(IK) , intent(out) :: nint
13477 integer(IK) :: err
13478 end function
13479#endif
13480
13481#if RK2_ENABLED
13482 module function QAGP_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13484 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK2
13485#endif
13486 use pm_kind, only: RKC => RK2
13487 procedure(real(RKC)) :: getFunc
13488 type(ninf_type) , intent(in) :: lb
13489 real(RKC) , intent(in) :: ub
13490 real(RKC) , intent(in) :: abstol
13491 real(RKC) , intent(in) :: reltol
13492 type(GK41_type) , intent(in) :: qrule
13493 real(RKC) , intent(in) , contiguous :: help(:)
13494 real(RKC) , intent(out) :: integral, abserr
13495 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13496 integer(IK) , intent(out) , contiguous :: sindex(:)
13497 integer(IK) , intent(out) :: neval
13498 integer(IK) , intent(out) :: nint
13499 integer(IK) :: err
13500 end function
13501#endif
13502
13503#if RK1_ENABLED
13504 module function QAGP_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13506 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK1
13507#endif
13508 use pm_kind, only: RKC => RK1
13509 procedure(real(RKC)) :: getFunc
13510 type(ninf_type) , intent(in) :: lb
13511 real(RKC) , intent(in) :: ub
13512 real(RKC) , intent(in) :: abstol
13513 real(RKC) , intent(in) :: reltol
13514 type(GK41_type) , intent(in) :: qrule
13515 real(RKC) , intent(in) , contiguous :: help(:)
13516 real(RKC) , intent(out) :: integral, abserr
13517 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13518 integer(IK) , intent(out) , contiguous :: sindex(:)
13519 integer(IK) , intent(out) :: neval
13520 integer(IK) , intent(out) :: nint
13521 integer(IK) :: err
13522 end function
13523#endif
13524
13525 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13526
13527#if RK5_ENABLED
13528 module function QAGP_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13530 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK5
13531#endif
13532 use pm_kind, only: RKC => RK5
13533 procedure(real(RKC)) :: getFunc
13534 type(ninf_type) , intent(in) :: lb
13535 type(pinf_type) , intent(in) :: ub
13536 real(RKC) , intent(in) :: abstol
13537 real(RKC) , intent(in) :: reltol
13538 type(GK41_type) , intent(in) :: qrule
13539 real(RKC) , intent(in) , contiguous :: help(:)
13540 real(RKC) , intent(out) :: integral, abserr
13541 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13542 integer(IK) , intent(out) , contiguous :: sindex(:)
13543 integer(IK) , intent(out) :: neval
13544 integer(IK) , intent(out) :: nint
13545 integer(IK) :: err
13546 end function
13547#endif
13548
13549#if RK4_ENABLED
13550 module function QAGP_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13552 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK4
13553#endif
13554 use pm_kind, only: RKC => RK4
13555 procedure(real(RKC)) :: getFunc
13556 type(ninf_type) , intent(in) :: lb
13557 type(pinf_type) , intent(in) :: ub
13558 real(RKC) , intent(in) :: abstol
13559 real(RKC) , intent(in) :: reltol
13560 type(GK41_type) , intent(in) :: qrule
13561 real(RKC) , intent(in) , contiguous :: help(:)
13562 real(RKC) , intent(out) :: integral, abserr
13563 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13564 integer(IK) , intent(out) , contiguous :: sindex(:)
13565 integer(IK) , intent(out) :: neval
13566 integer(IK) , intent(out) :: nint
13567 integer(IK) :: err
13568 end function
13569#endif
13570
13571#if RK3_ENABLED
13572 module function QAGP_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13574 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK3
13575#endif
13576 use pm_kind, only: RKC => RK3
13577 procedure(real(RKC)) :: getFunc
13578 type(ninf_type) , intent(in) :: lb
13579 type(pinf_type) , intent(in) :: ub
13580 real(RKC) , intent(in) :: abstol
13581 real(RKC) , intent(in) :: reltol
13582 type(GK41_type) , intent(in) :: qrule
13583 real(RKC) , intent(in) , contiguous :: help(:)
13584 real(RKC) , intent(out) :: integral, abserr
13585 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13586 integer(IK) , intent(out) , contiguous :: sindex(:)
13587 integer(IK) , intent(out) :: neval
13588 integer(IK) , intent(out) :: nint
13589 integer(IK) :: err
13590 end function
13591#endif
13592
13593#if RK2_ENABLED
13594 module function QAGP_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13596 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK2
13597#endif
13598 use pm_kind, only: RKC => RK2
13599 procedure(real(RKC)) :: getFunc
13600 type(ninf_type) , intent(in) :: lb
13601 type(pinf_type) , intent(in) :: ub
13602 real(RKC) , intent(in) :: abstol
13603 real(RKC) , intent(in) :: reltol
13604 type(GK41_type) , intent(in) :: qrule
13605 real(RKC) , intent(in) , contiguous :: help(:)
13606 real(RKC) , intent(out) :: integral, abserr
13607 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13608 integer(IK) , intent(out) , contiguous :: sindex(:)
13609 integer(IK) , intent(out) :: neval
13610 integer(IK) , intent(out) :: nint
13611 integer(IK) :: err
13612 end function
13613#endif
13614
13615#if RK1_ENABLED
13616 module function QAGP_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13618 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK1
13619#endif
13620 use pm_kind, only: RKC => RK1
13621 procedure(real(RKC)) :: getFunc
13622 type(ninf_type) , intent(in) :: lb
13623 type(pinf_type) , intent(in) :: ub
13624 real(RKC) , intent(in) :: abstol
13625 real(RKC) , intent(in) :: reltol
13626 type(GK41_type) , intent(in) :: qrule
13627 real(RKC) , intent(in) , contiguous :: help(:)
13628 real(RKC) , intent(out) :: integral, abserr
13629 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13630 integer(IK) , intent(out) , contiguous :: sindex(:)
13631 integer(IK) , intent(out) :: neval
13632 integer(IK) , intent(out) :: nint
13633 integer(IK) :: err
13634 end function
13635#endif
13636
13637 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13638
13639 end interface
13640
13641 ! QAGP_GK51
13642
13643 interface getQuadErr
13644
13645 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13646
13647#if RK5_ENABLED
13648 module function QAGP_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13650 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK5
13651#endif
13652 use pm_kind, only: RKC => RK5
13653 procedure(real(RKC)) :: getFunc
13654 real(RKC) , intent(in) :: lb
13655 real(RKC) , intent(in) :: ub
13656 real(RKC) , intent(in) :: abstol
13657 real(RKC) , intent(in) :: reltol
13658 type(GK51_type) , intent(in) :: qrule
13659 real(RKC) , intent(in) , contiguous :: help(:)
13660 real(RKC) , intent(out) :: integral, abserr
13661 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13662 integer(IK) , intent(out) , contiguous :: sindex(:)
13663 integer(IK) , intent(out) :: neval
13664 integer(IK) , intent(out) :: nint
13665 integer(IK) :: err
13666 end function
13667#endif
13668
13669#if RK4_ENABLED
13670 module function QAGP_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13672 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK4
13673#endif
13674 use pm_kind, only: RKC => RK4
13675 procedure(real(RKC)) :: getFunc
13676 real(RKC) , intent(in) :: lb
13677 real(RKC) , intent(in) :: ub
13678 real(RKC) , intent(in) :: abstol
13679 real(RKC) , intent(in) :: reltol
13680 type(GK51_type) , intent(in) :: qrule
13681 real(RKC) , intent(in) , contiguous :: help(:)
13682 real(RKC) , intent(out) :: integral, abserr
13683 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13684 integer(IK) , intent(out) , contiguous :: sindex(:)
13685 integer(IK) , intent(out) :: neval
13686 integer(IK) , intent(out) :: nint
13687 integer(IK) :: err
13688 end function
13689#endif
13690
13691#if RK3_ENABLED
13692 module function QAGP_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13694 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK3
13695#endif
13696 use pm_kind, only: RKC => RK3
13697 procedure(real(RKC)) :: getFunc
13698 real(RKC) , intent(in) :: lb
13699 real(RKC) , intent(in) :: ub
13700 real(RKC) , intent(in) :: abstol
13701 real(RKC) , intent(in) :: reltol
13702 type(GK51_type) , intent(in) :: qrule
13703 real(RKC) , intent(in) , contiguous :: help(:)
13704 real(RKC) , intent(out) :: integral, abserr
13705 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13706 integer(IK) , intent(out) , contiguous :: sindex(:)
13707 integer(IK) , intent(out) :: neval
13708 integer(IK) , intent(out) :: nint
13709 integer(IK) :: err
13710 end function
13711#endif
13712
13713#if RK2_ENABLED
13714 module function QAGP_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13716 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK2
13717#endif
13718 use pm_kind, only: RKC => RK2
13719 procedure(real(RKC)) :: getFunc
13720 real(RKC) , intent(in) :: lb
13721 real(RKC) , intent(in) :: ub
13722 real(RKC) , intent(in) :: abstol
13723 real(RKC) , intent(in) :: reltol
13724 type(GK51_type) , intent(in) :: qrule
13725 real(RKC) , intent(in) , contiguous :: help(:)
13726 real(RKC) , intent(out) :: integral, abserr
13727 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13728 integer(IK) , intent(out) , contiguous :: sindex(:)
13729 integer(IK) , intent(out) :: neval
13730 integer(IK) , intent(out) :: nint
13731 integer(IK) :: err
13732 end function
13733#endif
13734
13735#if RK1_ENABLED
13736 module function QAGP_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13738 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK1
13739#endif
13740 use pm_kind, only: RKC => RK1
13741 procedure(real(RKC)) :: getFunc
13742 real(RKC) , intent(in) :: lb
13743 real(RKC) , intent(in) :: ub
13744 real(RKC) , intent(in) :: abstol
13745 real(RKC) , intent(in) :: reltol
13746 type(GK51_type) , intent(in) :: qrule
13747 real(RKC) , intent(in) , contiguous :: help(:)
13748 real(RKC) , intent(out) :: integral, abserr
13749 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13750 integer(IK) , intent(out) , contiguous :: sindex(:)
13751 integer(IK) , intent(out) :: neval
13752 integer(IK) , intent(out) :: nint
13753 integer(IK) :: err
13754 end function
13755#endif
13756
13757 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13758
13759#if RK5_ENABLED
13760 module function QAGP_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13762 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK5
13763#endif
13764 use pm_kind, only: RKC => RK5
13765 procedure(real(RKC)) :: getFunc
13766 real(RKC) , intent(in) :: lb
13767 type(pinf_type) , intent(in) :: ub
13768 real(RKC) , intent(in) :: abstol
13769 real(RKC) , intent(in) :: reltol
13770 type(GK51_type) , intent(in) :: qrule
13771 real(RKC) , intent(in) , contiguous :: help(:)
13772 real(RKC) , intent(out) :: integral, abserr
13773 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13774 integer(IK) , intent(out) , contiguous :: sindex(:)
13775 integer(IK) , intent(out) :: neval
13776 integer(IK) , intent(out) :: nint
13777 integer(IK) :: err
13778 end function
13779#endif
13780
13781#if RK4_ENABLED
13782 module function QAGP_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13784 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK4
13785#endif
13786 use pm_kind, only: RKC => RK4
13787 procedure(real(RKC)) :: getFunc
13788 real(RKC) , intent(in) :: lb
13789 type(pinf_type) , intent(in) :: ub
13790 real(RKC) , intent(in) :: abstol
13791 real(RKC) , intent(in) :: reltol
13792 type(GK51_type) , intent(in) :: qrule
13793 real(RKC) , intent(in) , contiguous :: help(:)
13794 real(RKC) , intent(out) :: integral, abserr
13795 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13796 integer(IK) , intent(out) , contiguous :: sindex(:)
13797 integer(IK) , intent(out) :: neval
13798 integer(IK) , intent(out) :: nint
13799 integer(IK) :: err
13800 end function
13801#endif
13802
13803#if RK3_ENABLED
13804 module function QAGP_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13806 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK3
13807#endif
13808 use pm_kind, only: RKC => RK3
13809 procedure(real(RKC)) :: getFunc
13810 real(RKC) , intent(in) :: lb
13811 type(pinf_type) , intent(in) :: ub
13812 real(RKC) , intent(in) :: abstol
13813 real(RKC) , intent(in) :: reltol
13814 type(GK51_type) , intent(in) :: qrule
13815 real(RKC) , intent(in) , contiguous :: help(:)
13816 real(RKC) , intent(out) :: integral, abserr
13817 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13818 integer(IK) , intent(out) , contiguous :: sindex(:)
13819 integer(IK) , intent(out) :: neval
13820 integer(IK) , intent(out) :: nint
13821 integer(IK) :: err
13822 end function
13823#endif
13824
13825#if RK2_ENABLED
13826 module function QAGP_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13828 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK2
13829#endif
13830 use pm_kind, only: RKC => RK2
13831 procedure(real(RKC)) :: getFunc
13832 real(RKC) , intent(in) :: lb
13833 type(pinf_type) , intent(in) :: ub
13834 real(RKC) , intent(in) :: abstol
13835 real(RKC) , intent(in) :: reltol
13836 type(GK51_type) , intent(in) :: qrule
13837 real(RKC) , intent(in) , contiguous :: help(:)
13838 real(RKC) , intent(out) :: integral, abserr
13839 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13840 integer(IK) , intent(out) , contiguous :: sindex(:)
13841 integer(IK) , intent(out) :: neval
13842 integer(IK) , intent(out) :: nint
13843 integer(IK) :: err
13844 end function
13845#endif
13846
13847#if RK1_ENABLED
13848 module function QAGP_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13850 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK1
13851#endif
13852 use pm_kind, only: RKC => RK1
13853 procedure(real(RKC)) :: getFunc
13854 real(RKC) , intent(in) :: lb
13855 type(pinf_type) , intent(in) :: ub
13856 real(RKC) , intent(in) :: abstol
13857 real(RKC) , intent(in) :: reltol
13858 type(GK51_type) , intent(in) :: qrule
13859 real(RKC) , intent(in) , contiguous :: help(:)
13860 real(RKC) , intent(out) :: integral, abserr
13861 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13862 integer(IK) , intent(out) , contiguous :: sindex(:)
13863 integer(IK) , intent(out) :: neval
13864 integer(IK) , intent(out) :: nint
13865 integer(IK) :: err
13866 end function
13867#endif
13868
13869 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13870
13871#if RK5_ENABLED
13872 module function QAGP_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13874 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK5
13875#endif
13876 use pm_kind, only: RKC => RK5
13877 procedure(real(RKC)) :: getFunc
13878 type(ninf_type) , intent(in) :: lb
13879 real(RKC) , intent(in) :: ub
13880 real(RKC) , intent(in) :: abstol
13881 real(RKC) , intent(in) :: reltol
13882 type(GK51_type) , intent(in) :: qrule
13883 real(RKC) , intent(in) , contiguous :: help(:)
13884 real(RKC) , intent(out) :: integral, abserr
13885 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13886 integer(IK) , intent(out) , contiguous :: sindex(:)
13887 integer(IK) , intent(out) :: neval
13888 integer(IK) , intent(out) :: nint
13889 integer(IK) :: err
13890 end function
13891#endif
13892
13893#if RK4_ENABLED
13894 module function QAGP_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13896 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK4
13897#endif
13898 use pm_kind, only: RKC => RK4
13899 procedure(real(RKC)) :: getFunc
13900 type(ninf_type) , intent(in) :: lb
13901 real(RKC) , intent(in) :: ub
13902 real(RKC) , intent(in) :: abstol
13903 real(RKC) , intent(in) :: reltol
13904 type(GK51_type) , intent(in) :: qrule
13905 real(RKC) , intent(in) , contiguous :: help(:)
13906 real(RKC) , intent(out) :: integral, abserr
13907 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13908 integer(IK) , intent(out) , contiguous :: sindex(:)
13909 integer(IK) , intent(out) :: neval
13910 integer(IK) , intent(out) :: nint
13911 integer(IK) :: err
13912 end function
13913#endif
13914
13915#if RK3_ENABLED
13916 module function QAGP_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13918 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK3
13919#endif
13920 use pm_kind, only: RKC => RK3
13921 procedure(real(RKC)) :: getFunc
13922 type(ninf_type) , intent(in) :: lb
13923 real(RKC) , intent(in) :: ub
13924 real(RKC) , intent(in) :: abstol
13925 real(RKC) , intent(in) :: reltol
13926 type(GK51_type) , intent(in) :: qrule
13927 real(RKC) , intent(in) , contiguous :: help(:)
13928 real(RKC) , intent(out) :: integral, abserr
13929 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13930 integer(IK) , intent(out) , contiguous :: sindex(:)
13931 integer(IK) , intent(out) :: neval
13932 integer(IK) , intent(out) :: nint
13933 integer(IK) :: err
13934 end function
13935#endif
13936
13937#if RK2_ENABLED
13938 module function QAGP_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13940 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK2
13941#endif
13942 use pm_kind, only: RKC => RK2
13943 procedure(real(RKC)) :: getFunc
13944 type(ninf_type) , intent(in) :: lb
13945 real(RKC) , intent(in) :: ub
13946 real(RKC) , intent(in) :: abstol
13947 real(RKC) , intent(in) :: reltol
13948 type(GK51_type) , intent(in) :: qrule
13949 real(RKC) , intent(in) , contiguous :: help(:)
13950 real(RKC) , intent(out) :: integral, abserr
13951 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13952 integer(IK) , intent(out) , contiguous :: sindex(:)
13953 integer(IK) , intent(out) :: neval
13954 integer(IK) , intent(out) :: nint
13955 integer(IK) :: err
13956 end function
13957#endif
13958
13959#if RK1_ENABLED
13960 module function QAGP_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13962 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK1
13963#endif
13964 use pm_kind, only: RKC => RK1
13965 procedure(real(RKC)) :: getFunc
13966 type(ninf_type) , intent(in) :: lb
13967 real(RKC) , intent(in) :: ub
13968 real(RKC) , intent(in) :: abstol
13969 real(RKC) , intent(in) :: reltol
13970 type(GK51_type) , intent(in) :: qrule
13971 real(RKC) , intent(in) , contiguous :: help(:)
13972 real(RKC) , intent(out) :: integral, abserr
13973 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13974 integer(IK) , intent(out) , contiguous :: sindex(:)
13975 integer(IK) , intent(out) :: neval
13976 integer(IK) , intent(out) :: nint
13977 integer(IK) :: err
13978 end function
13979#endif
13980
13981 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13982
13983#if RK5_ENABLED
13984 module function QAGP_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13986 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK5
13987#endif
13988 use pm_kind, only: RKC => RK5
13989 procedure(real(RKC)) :: getFunc
13990 type(ninf_type) , intent(in) :: lb
13991 type(pinf_type) , intent(in) :: ub
13992 real(RKC) , intent(in) :: abstol
13993 real(RKC) , intent(in) :: reltol
13994 type(GK51_type) , intent(in) :: qrule
13995 real(RKC) , intent(in) , contiguous :: help(:)
13996 real(RKC) , intent(out) :: integral, abserr
13997 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13998 integer(IK) , intent(out) , contiguous :: sindex(:)
13999 integer(IK) , intent(out) :: neval
14000 integer(IK) , intent(out) :: nint
14001 integer(IK) :: err
14002 end function
14003#endif
14004
14005#if RK4_ENABLED
14006 module function QAGP_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14008 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK4
14009#endif
14010 use pm_kind, only: RKC => RK4
14011 procedure(real(RKC)) :: getFunc
14012 type(ninf_type) , intent(in) :: lb
14013 type(pinf_type) , intent(in) :: ub
14014 real(RKC) , intent(in) :: abstol
14015 real(RKC) , intent(in) :: reltol
14016 type(GK51_type) , intent(in) :: qrule
14017 real(RKC) , intent(in) , contiguous :: help(:)
14018 real(RKC) , intent(out) :: integral, abserr
14019 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14020 integer(IK) , intent(out) , contiguous :: sindex(:)
14021 integer(IK) , intent(out) :: neval
14022 integer(IK) , intent(out) :: nint
14023 integer(IK) :: err
14024 end function
14025#endif
14026
14027#if RK3_ENABLED
14028 module function QAGP_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14030 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK3
14031#endif
14032 use pm_kind, only: RKC => RK3
14033 procedure(real(RKC)) :: getFunc
14034 type(ninf_type) , intent(in) :: lb
14035 type(pinf_type) , intent(in) :: ub
14036 real(RKC) , intent(in) :: abstol
14037 real(RKC) , intent(in) :: reltol
14038 type(GK51_type) , intent(in) :: qrule
14039 real(RKC) , intent(in) , contiguous :: help(:)
14040 real(RKC) , intent(out) :: integral, abserr
14041 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14042 integer(IK) , intent(out) , contiguous :: sindex(:)
14043 integer(IK) , intent(out) :: neval
14044 integer(IK) , intent(out) :: nint
14045 integer(IK) :: err
14046 end function
14047#endif
14048
14049#if RK2_ENABLED
14050 module function QAGP_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14052 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK2
14053#endif
14054 use pm_kind, only: RKC => RK2
14055 procedure(real(RKC)) :: getFunc
14056 type(ninf_type) , intent(in) :: lb
14057 type(pinf_type) , intent(in) :: ub
14058 real(RKC) , intent(in) :: abstol
14059 real(RKC) , intent(in) :: reltol
14060 type(GK51_type) , intent(in) :: qrule
14061 real(RKC) , intent(in) , contiguous :: help(:)
14062 real(RKC) , intent(out) :: integral, abserr
14063 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14064 integer(IK) , intent(out) , contiguous :: sindex(:)
14065 integer(IK) , intent(out) :: neval
14066 integer(IK) , intent(out) :: nint
14067 integer(IK) :: err
14068 end function
14069#endif
14070
14071#if RK1_ENABLED
14072 module function QAGP_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14074 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK1
14075#endif
14076 use pm_kind, only: RKC => RK1
14077 procedure(real(RKC)) :: getFunc
14078 type(ninf_type) , intent(in) :: lb
14079 type(pinf_type) , intent(in) :: ub
14080 real(RKC) , intent(in) :: abstol
14081 real(RKC) , intent(in) :: reltol
14082 type(GK51_type) , intent(in) :: qrule
14083 real(RKC) , intent(in) , contiguous :: help(:)
14084 real(RKC) , intent(out) :: integral, abserr
14085 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14086 integer(IK) , intent(out) , contiguous :: sindex(:)
14087 integer(IK) , intent(out) :: neval
14088 integer(IK) , intent(out) :: nint
14089 integer(IK) :: err
14090 end function
14091#endif
14092
14093 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14094
14095 end interface
14096
14097 ! QAGP_GK61
14098
14099 interface getQuadErr
14100
14101 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14102
14103#if RK5_ENABLED
14104 module function QAGP_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14106 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK5
14107#endif
14108 use pm_kind, only: RKC => RK5
14109 procedure(real(RKC)) :: getFunc
14110 real(RKC) , intent(in) :: lb
14111 real(RKC) , intent(in) :: ub
14112 real(RKC) , intent(in) :: abstol
14113 real(RKC) , intent(in) :: reltol
14114 type(GK61_type) , intent(in) :: qrule
14115 real(RKC) , intent(in) , contiguous :: help(:)
14116 real(RKC) , intent(out) :: integral, abserr
14117 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14118 integer(IK) , intent(out) , contiguous :: sindex(:)
14119 integer(IK) , intent(out) :: neval
14120 integer(IK) , intent(out) :: nint
14121 integer(IK) :: err
14122 end function
14123#endif
14124
14125#if RK4_ENABLED
14126 module function QAGP_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14128 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK4
14129#endif
14130 use pm_kind, only: RKC => RK4
14131 procedure(real(RKC)) :: getFunc
14132 real(RKC) , intent(in) :: lb
14133 real(RKC) , intent(in) :: ub
14134 real(RKC) , intent(in) :: abstol
14135 real(RKC) , intent(in) :: reltol
14136 type(GK61_type) , intent(in) :: qrule
14137 real(RKC) , intent(in) , contiguous :: help(:)
14138 real(RKC) , intent(out) :: integral, abserr
14139 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14140 integer(IK) , intent(out) , contiguous :: sindex(:)
14141 integer(IK) , intent(out) :: neval
14142 integer(IK) , intent(out) :: nint
14143 integer(IK) :: err
14144 end function
14145#endif
14146
14147#if RK3_ENABLED
14148 module function QAGP_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14150 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK3
14151#endif
14152 use pm_kind, only: RKC => RK3
14153 procedure(real(RKC)) :: getFunc
14154 real(RKC) , intent(in) :: lb
14155 real(RKC) , intent(in) :: ub
14156 real(RKC) , intent(in) :: abstol
14157 real(RKC) , intent(in) :: reltol
14158 type(GK61_type) , intent(in) :: qrule
14159 real(RKC) , intent(in) , contiguous :: help(:)
14160 real(RKC) , intent(out) :: integral, abserr
14161 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14162 integer(IK) , intent(out) , contiguous :: sindex(:)
14163 integer(IK) , intent(out) :: neval
14164 integer(IK) , intent(out) :: nint
14165 integer(IK) :: err
14166 end function
14167#endif
14168
14169#if RK2_ENABLED
14170 module function QAGP_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14172 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK2
14173#endif
14174 use pm_kind, only: RKC => RK2
14175 procedure(real(RKC)) :: getFunc
14176 real(RKC) , intent(in) :: lb
14177 real(RKC) , intent(in) :: ub
14178 real(RKC) , intent(in) :: abstol
14179 real(RKC) , intent(in) :: reltol
14180 type(GK61_type) , intent(in) :: qrule
14181 real(RKC) , intent(in) , contiguous :: help(:)
14182 real(RKC) , intent(out) :: integral, abserr
14183 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14184 integer(IK) , intent(out) , contiguous :: sindex(:)
14185 integer(IK) , intent(out) :: neval
14186 integer(IK) , intent(out) :: nint
14187 integer(IK) :: err
14188 end function
14189#endif
14190
14191#if RK1_ENABLED
14192 module function QAGP_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14194 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK1
14195#endif
14196 use pm_kind, only: RKC => RK1
14197 procedure(real(RKC)) :: getFunc
14198 real(RKC) , intent(in) :: lb
14199 real(RKC) , intent(in) :: ub
14200 real(RKC) , intent(in) :: abstol
14201 real(RKC) , intent(in) :: reltol
14202 type(GK61_type) , intent(in) :: qrule
14203 real(RKC) , intent(in) , contiguous :: help(:)
14204 real(RKC) , intent(out) :: integral, abserr
14205 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14206 integer(IK) , intent(out) , contiguous :: sindex(:)
14207 integer(IK) , intent(out) :: neval
14208 integer(IK) , intent(out) :: nint
14209 integer(IK) :: err
14210 end function
14211#endif
14212
14213 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14214
14215#if RK5_ENABLED
14216 module function QAGP_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14218 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK5
14219#endif
14220 use pm_kind, only: RKC => RK5
14221 procedure(real(RKC)) :: getFunc
14222 real(RKC) , intent(in) :: lb
14223 type(pinf_type) , intent(in) :: ub
14224 real(RKC) , intent(in) :: abstol
14225 real(RKC) , intent(in) :: reltol
14226 type(GK61_type) , intent(in) :: qrule
14227 real(RKC) , intent(in) , contiguous :: help(:)
14228 real(RKC) , intent(out) :: integral, abserr
14229 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14230 integer(IK) , intent(out) , contiguous :: sindex(:)
14231 integer(IK) , intent(out) :: neval
14232 integer(IK) , intent(out) :: nint
14233 integer(IK) :: err
14234 end function
14235#endif
14236
14237#if RK4_ENABLED
14238 module function QAGP_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14240 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK4
14241#endif
14242 use pm_kind, only: RKC => RK4
14243 procedure(real(RKC)) :: getFunc
14244 real(RKC) , intent(in) :: lb
14245 type(pinf_type) , intent(in) :: ub
14246 real(RKC) , intent(in) :: abstol
14247 real(RKC) , intent(in) :: reltol
14248 type(GK61_type) , intent(in) :: qrule
14249 real(RKC) , intent(in) , contiguous :: help(:)
14250 real(RKC) , intent(out) :: integral, abserr
14251 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14252 integer(IK) , intent(out) , contiguous :: sindex(:)
14253 integer(IK) , intent(out) :: neval
14254 integer(IK) , intent(out) :: nint
14255 integer(IK) :: err
14256 end function
14257#endif
14258
14259#if RK3_ENABLED
14260 module function QAGP_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14262 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK3
14263#endif
14264 use pm_kind, only: RKC => RK3
14265 procedure(real(RKC)) :: getFunc
14266 real(RKC) , intent(in) :: lb
14267 type(pinf_type) , intent(in) :: ub
14268 real(RKC) , intent(in) :: abstol
14269 real(RKC) , intent(in) :: reltol
14270 type(GK61_type) , intent(in) :: qrule
14271 real(RKC) , intent(in) , contiguous :: help(:)
14272 real(RKC) , intent(out) :: integral, abserr
14273 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14274 integer(IK) , intent(out) , contiguous :: sindex(:)
14275 integer(IK) , intent(out) :: neval
14276 integer(IK) , intent(out) :: nint
14277 integer(IK) :: err
14278 end function
14279#endif
14280
14281#if RK2_ENABLED
14282 module function QAGP_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14284 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK2
14285#endif
14286 use pm_kind, only: RKC => RK2
14287 procedure(real(RKC)) :: getFunc
14288 real(RKC) , intent(in) :: lb
14289 type(pinf_type) , intent(in) :: ub
14290 real(RKC) , intent(in) :: abstol
14291 real(RKC) , intent(in) :: reltol
14292 type(GK61_type) , intent(in) :: qrule
14293 real(RKC) , intent(in) , contiguous :: help(:)
14294 real(RKC) , intent(out) :: integral, abserr
14295 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14296 integer(IK) , intent(out) , contiguous :: sindex(:)
14297 integer(IK) , intent(out) :: neval
14298 integer(IK) , intent(out) :: nint
14299 integer(IK) :: err
14300 end function
14301#endif
14302
14303#if RK1_ENABLED
14304 module function QAGP_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14306 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK1
14307#endif
14308 use pm_kind, only: RKC => RK1
14309 procedure(real(RKC)) :: getFunc
14310 real(RKC) , intent(in) :: lb
14311 type(pinf_type) , intent(in) :: ub
14312 real(RKC) , intent(in) :: abstol
14313 real(RKC) , intent(in) :: reltol
14314 type(GK61_type) , intent(in) :: qrule
14315 real(RKC) , intent(in) , contiguous :: help(:)
14316 real(RKC) , intent(out) :: integral, abserr
14317 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14318 integer(IK) , intent(out) , contiguous :: sindex(:)
14319 integer(IK) , intent(out) :: neval
14320 integer(IK) , intent(out) :: nint
14321 integer(IK) :: err
14322 end function
14323#endif
14324
14325 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14326
14327#if RK5_ENABLED
14328 module function QAGP_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14330 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK5
14331#endif
14332 use pm_kind, only: RKC => RK5
14333 procedure(real(RKC)) :: getFunc
14334 type(ninf_type) , intent(in) :: lb
14335 real(RKC) , intent(in) :: ub
14336 real(RKC) , intent(in) :: abstol
14337 real(RKC) , intent(in) :: reltol
14338 type(GK61_type) , intent(in) :: qrule
14339 real(RKC) , intent(in) , contiguous :: help(:)
14340 real(RKC) , intent(out) :: integral, abserr
14341 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14342 integer(IK) , intent(out) , contiguous :: sindex(:)
14343 integer(IK) , intent(out) :: neval
14344 integer(IK) , intent(out) :: nint
14345 integer(IK) :: err
14346 end function
14347#endif
14348
14349#if RK4_ENABLED
14350 module function QAGP_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14352 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK4
14353#endif
14354 use pm_kind, only: RKC => RK4
14355 procedure(real(RKC)) :: getFunc
14356 type(ninf_type) , intent(in) :: lb
14357 real(RKC) , intent(in) :: ub
14358 real(RKC) , intent(in) :: abstol
14359 real(RKC) , intent(in) :: reltol
14360 type(GK61_type) , intent(in) :: qrule
14361 real(RKC) , intent(in) , contiguous :: help(:)
14362 real(RKC) , intent(out) :: integral, abserr
14363 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14364 integer(IK) , intent(out) , contiguous :: sindex(:)
14365 integer(IK) , intent(out) :: neval
14366 integer(IK) , intent(out) :: nint
14367 integer(IK) :: err
14368 end function
14369#endif
14370
14371#if RK3_ENABLED
14372 module function QAGP_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14374 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK3
14375#endif
14376 use pm_kind, only: RKC => RK3
14377 procedure(real(RKC)) :: getFunc
14378 type(ninf_type) , intent(in) :: lb
14379 real(RKC) , intent(in) :: ub
14380 real(RKC) , intent(in) :: abstol
14381 real(RKC) , intent(in) :: reltol
14382 type(GK61_type) , intent(in) :: qrule
14383 real(RKC) , intent(in) , contiguous :: help(:)
14384 real(RKC) , intent(out) :: integral, abserr
14385 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14386 integer(IK) , intent(out) , contiguous :: sindex(:)
14387 integer(IK) , intent(out) :: neval
14388 integer(IK) , intent(out) :: nint
14389 integer(IK) :: err
14390 end function
14391#endif
14392
14393#if RK2_ENABLED
14394 module function QAGP_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14396 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK2
14397#endif
14398 use pm_kind, only: RKC => RK2
14399 procedure(real(RKC)) :: getFunc
14400 type(ninf_type) , intent(in) :: lb
14401 real(RKC) , intent(in) :: ub
14402 real(RKC) , intent(in) :: abstol
14403 real(RKC) , intent(in) :: reltol
14404 type(GK61_type) , intent(in) :: qrule
14405 real(RKC) , intent(in) , contiguous :: help(:)
14406 real(RKC) , intent(out) :: integral, abserr
14407 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14408 integer(IK) , intent(out) , contiguous :: sindex(:)
14409 integer(IK) , intent(out) :: neval
14410 integer(IK) , intent(out) :: nint
14411 integer(IK) :: err
14412 end function
14413#endif
14414
14415#if RK1_ENABLED
14416 module function QAGP_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14418 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK1
14419#endif
14420 use pm_kind, only: RKC => RK1
14421 procedure(real(RKC)) :: getFunc
14422 type(ninf_type) , intent(in) :: lb
14423 real(RKC) , intent(in) :: ub
14424 real(RKC) , intent(in) :: abstol
14425 real(RKC) , intent(in) :: reltol
14426 type(GK61_type) , intent(in) :: qrule
14427 real(RKC) , intent(in) , contiguous :: help(:)
14428 real(RKC) , intent(out) :: integral, abserr
14429 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14430 integer(IK) , intent(out) , contiguous :: sindex(:)
14431 integer(IK) , intent(out) :: neval
14432 integer(IK) , intent(out) :: nint
14433 integer(IK) :: err
14434 end function
14435#endif
14436
14437 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14438
14439#if RK5_ENABLED
14440 module function QAGP_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14442 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK5
14443#endif
14444 use pm_kind, only: RKC => RK5
14445 procedure(real(RKC)) :: getFunc
14446 type(ninf_type) , intent(in) :: lb
14447 type(pinf_type) , intent(in) :: ub
14448 real(RKC) , intent(in) :: abstol
14449 real(RKC) , intent(in) :: reltol
14450 type(GK61_type) , intent(in) :: qrule
14451 real(RKC) , intent(in) , contiguous :: help(:)
14452 real(RKC) , intent(out) :: integral, abserr
14453 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14454 integer(IK) , intent(out) , contiguous :: sindex(:)
14455 integer(IK) , intent(out) :: neval
14456 integer(IK) , intent(out) :: nint
14457 integer(IK) :: err
14458 end function
14459#endif
14460
14461#if RK4_ENABLED
14462 module function QAGP_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14464 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK4
14465#endif
14466 use pm_kind, only: RKC => RK4
14467 procedure(real(RKC)) :: getFunc
14468 type(ninf_type) , intent(in) :: lb
14469 type(pinf_type) , intent(in) :: ub
14470 real(RKC) , intent(in) :: abstol
14471 real(RKC) , intent(in) :: reltol
14472 type(GK61_type) , intent(in) :: qrule
14473 real(RKC) , intent(in) , contiguous :: help(:)
14474 real(RKC) , intent(out) :: integral, abserr
14475 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14476 integer(IK) , intent(out) , contiguous :: sindex(:)
14477 integer(IK) , intent(out) :: neval
14478 integer(IK) , intent(out) :: nint
14479 integer(IK) :: err
14480 end function
14481#endif
14482
14483#if RK3_ENABLED
14484 module function QAGP_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14486 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK3
14487#endif
14488 use pm_kind, only: RKC => RK3
14489 procedure(real(RKC)) :: getFunc
14490 type(ninf_type) , intent(in) :: lb
14491 type(pinf_type) , intent(in) :: ub
14492 real(RKC) , intent(in) :: abstol
14493 real(RKC) , intent(in) :: reltol
14494 type(GK61_type) , intent(in) :: qrule
14495 real(RKC) , intent(in) , contiguous :: help(:)
14496 real(RKC) , intent(out) :: integral, abserr
14497 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14498 integer(IK) , intent(out) , contiguous :: sindex(:)
14499 integer(IK) , intent(out) :: neval
14500 integer(IK) , intent(out) :: nint
14501 integer(IK) :: err
14502 end function
14503#endif
14504
14505#if RK2_ENABLED
14506 module function QAGP_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14508 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK2
14509#endif
14510 use pm_kind, only: RKC => RK2
14511 procedure(real(RKC)) :: getFunc
14512 type(ninf_type) , intent(in) :: lb
14513 type(pinf_type) , intent(in) :: ub
14514 real(RKC) , intent(in) :: abstol
14515 real(RKC) , intent(in) :: reltol
14516 type(GK61_type) , intent(in) :: qrule
14517 real(RKC) , intent(in) , contiguous :: help(:)
14518 real(RKC) , intent(out) :: integral, abserr
14519 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14520 integer(IK) , intent(out) , contiguous :: sindex(:)
14521 integer(IK) , intent(out) :: neval
14522 integer(IK) , intent(out) :: nint
14523 integer(IK) :: err
14524 end function
14525#endif
14526
14527#if RK1_ENABLED
14528 module function QAGP_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14530 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK1
14531#endif
14532 use pm_kind, only: RKC => RK1
14533 procedure(real(RKC)) :: getFunc
14534 type(ninf_type) , intent(in) :: lb
14535 type(pinf_type) , intent(in) :: ub
14536 real(RKC) , intent(in) :: abstol
14537 real(RKC) , intent(in) :: reltol
14538 type(GK61_type) , intent(in) :: qrule
14539 real(RKC) , intent(in) , contiguous :: help(:)
14540 real(RKC) , intent(out) :: integral, abserr
14541 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14542 integer(IK) , intent(out) , contiguous :: sindex(:)
14543 integer(IK) , intent(out) :: neval
14544 integer(IK) , intent(out) :: nint
14545 integer(IK) :: err
14546 end function
14547#endif
14548
14549 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14550
14551 end interface
14552
14553 ! QAGP_GKXX
14554
14555 interface getQuadErr
14556
14557 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14558
14559#if RK5_ENABLED
14560 module function QAGP_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14562 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK5
14563#endif
14564 use pm_kind, only: RKC => RK5
14565 procedure(real(RKC)) :: getFunc
14566 real(RKC) , intent(in) :: lb
14567 real(RKC) , intent(in) :: ub
14568 real(RKC) , intent(in) :: abstol
14569 real(RKC) , intent(in) :: reltol
14570 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14571 real(RKC) , intent(in) , contiguous :: help(:)
14572 real(RKC) , intent(out) :: integral, abserr
14573 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14574 integer(IK) , intent(out) , contiguous :: sindex(:)
14575 integer(IK) , intent(out) :: neval
14576 integer(IK) , intent(out) :: nint
14577 integer(IK) :: err
14578 end function
14579#endif
14580
14581#if RK4_ENABLED
14582 module function QAGP_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14583#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14584 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK4
14585#endif
14586 use pm_kind, only: RKC => RK4
14587 procedure(real(RKC)) :: getFunc
14588 real(RKC) , intent(in) :: lb
14589 real(RKC) , intent(in) :: ub
14590 real(RKC) , intent(in) :: abstol
14591 real(RKC) , intent(in) :: reltol
14592 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14593 real(RKC) , intent(in) , contiguous :: help(:)
14594 real(RKC) , intent(out) :: integral, abserr
14595 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14596 integer(IK) , intent(out) , contiguous :: sindex(:)
14597 integer(IK) , intent(out) :: neval
14598 integer(IK) , intent(out) :: nint
14599 integer(IK) :: err
14600 end function
14601#endif
14602
14603#if RK3_ENABLED
14604 module function QAGP_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14606 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK3
14607#endif
14608 use pm_kind, only: RKC => RK3
14609 procedure(real(RKC)) :: getFunc
14610 real(RKC) , intent(in) :: lb
14611 real(RKC) , intent(in) :: ub
14612 real(RKC) , intent(in) :: abstol
14613 real(RKC) , intent(in) :: reltol
14614 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14615 real(RKC) , intent(in) , contiguous :: help(:)
14616 real(RKC) , intent(out) :: integral, abserr
14617 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14618 integer(IK) , intent(out) , contiguous :: sindex(:)
14619 integer(IK) , intent(out) :: neval
14620 integer(IK) , intent(out) :: nint
14621 integer(IK) :: err
14622 end function
14623#endif
14624
14625#if RK2_ENABLED
14626 module function QAGP_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14628 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK2
14629#endif
14630 use pm_kind, only: RKC => RK2
14631 procedure(real(RKC)) :: getFunc
14632 real(RKC) , intent(in) :: lb
14633 real(RKC) , intent(in) :: ub
14634 real(RKC) , intent(in) :: abstol
14635 real(RKC) , intent(in) :: reltol
14636 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14637 real(RKC) , intent(in) , contiguous :: help(:)
14638 real(RKC) , intent(out) :: integral, abserr
14639 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14640 integer(IK) , intent(out) , contiguous :: sindex(:)
14641 integer(IK) , intent(out) :: neval
14642 integer(IK) , intent(out) :: nint
14643 integer(IK) :: err
14644 end function
14645#endif
14646
14647#if RK1_ENABLED
14648 module function QAGP_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14650 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK1
14651#endif
14652 use pm_kind, only: RKC => RK1
14653 procedure(real(RKC)) :: getFunc
14654 real(RKC) , intent(in) :: lb
14655 real(RKC) , intent(in) :: ub
14656 real(RKC) , intent(in) :: abstol
14657 real(RKC) , intent(in) :: reltol
14658 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14659 real(RKC) , intent(in) , contiguous :: help(:)
14660 real(RKC) , intent(out) :: integral, abserr
14661 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14662 integer(IK) , intent(out) , contiguous :: sindex(:)
14663 integer(IK) , intent(out) :: neval
14664 integer(IK) , intent(out) :: nint
14665 integer(IK) :: err
14666 end function
14667#endif
14668
14669 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14670
14671#if RK5_ENABLED
14672 module function QAGP_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14674 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK5
14675#endif
14676 use pm_kind, only: RKC => RK5
14677 procedure(real(RKC)) :: getFunc
14678 real(RKC) , intent(in) :: lb
14679 type(pinf_type) , intent(in) :: ub
14680 real(RKC) , intent(in) :: abstol
14681 real(RKC) , intent(in) :: reltol
14682 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14683 real(RKC) , intent(in) , contiguous :: help(:)
14684 real(RKC) , intent(out) :: integral, abserr
14685 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14686 integer(IK) , intent(out) , contiguous :: sindex(:)
14687 integer(IK) , intent(out) :: neval
14688 integer(IK) , intent(out) :: nint
14689 integer(IK) :: err
14690 end function
14691#endif
14692
14693#if RK4_ENABLED
14694 module function QAGP_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14696 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK4
14697#endif
14698 use pm_kind, only: RKC => RK4
14699 procedure(real(RKC)) :: getFunc
14700 real(RKC) , intent(in) :: lb
14701 type(pinf_type) , intent(in) :: ub
14702 real(RKC) , intent(in) :: abstol
14703 real(RKC) , intent(in) :: reltol
14704 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14705 real(RKC) , intent(in) , contiguous :: help(:)
14706 real(RKC) , intent(out) :: integral, abserr
14707 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14708 integer(IK) , intent(out) , contiguous :: sindex(:)
14709 integer(IK) , intent(out) :: neval
14710 integer(IK) , intent(out) :: nint
14711 integer(IK) :: err
14712 end function
14713#endif
14714
14715#if RK3_ENABLED
14716 module function QAGP_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14718 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK3
14719#endif
14720 use pm_kind, only: RKC => RK3
14721 procedure(real(RKC)) :: getFunc
14722 real(RKC) , intent(in) :: lb
14723 type(pinf_type) , intent(in) :: ub
14724 real(RKC) , intent(in) :: abstol
14725 real(RKC) , intent(in) :: reltol
14726 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14727 real(RKC) , intent(in) , contiguous :: help(:)
14728 real(RKC) , intent(out) :: integral, abserr
14729 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14730 integer(IK) , intent(out) , contiguous :: sindex(:)
14731 integer(IK) , intent(out) :: neval
14732 integer(IK) , intent(out) :: nint
14733 integer(IK) :: err
14734 end function
14735#endif
14736
14737#if RK2_ENABLED
14738 module function QAGP_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14740 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK2
14741#endif
14742 use pm_kind, only: RKC => RK2
14743 procedure(real(RKC)) :: getFunc
14744 real(RKC) , intent(in) :: lb
14745 type(pinf_type) , intent(in) :: ub
14746 real(RKC) , intent(in) :: abstol
14747 real(RKC) , intent(in) :: reltol
14748 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14749 real(RKC) , intent(in) , contiguous :: help(:)
14750 real(RKC) , intent(out) :: integral, abserr
14751 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14752 integer(IK) , intent(out) , contiguous :: sindex(:)
14753 integer(IK) , intent(out) :: neval
14754 integer(IK) , intent(out) :: nint
14755 integer(IK) :: err
14756 end function
14757#endif
14758
14759#if RK1_ENABLED
14760 module function QAGP_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14762 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK1
14763#endif
14764 use pm_kind, only: RKC => RK1
14765 procedure(real(RKC)) :: getFunc
14766 real(RKC) , intent(in) :: lb
14767 type(pinf_type) , intent(in) :: ub
14768 real(RKC) , intent(in) :: abstol
14769 real(RKC) , intent(in) :: reltol
14770 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14771 real(RKC) , intent(in) , contiguous :: help(:)
14772 real(RKC) , intent(out) :: integral, abserr
14773 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14774 integer(IK) , intent(out) , contiguous :: sindex(:)
14775 integer(IK) , intent(out) :: neval
14776 integer(IK) , intent(out) :: nint
14777 integer(IK) :: err
14778 end function
14779#endif
14780
14781 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14782
14783#if RK5_ENABLED
14784 module function QAGP_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14786 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK5
14787#endif
14788 use pm_kind, only: RKC => RK5
14789 procedure(real(RKC)) :: getFunc
14790 type(ninf_type) , intent(in) :: lb
14791 real(RKC) , intent(in) :: ub
14792 real(RKC) , intent(in) :: abstol
14793 real(RKC) , intent(in) :: reltol
14794 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14795 real(RKC) , intent(in) , contiguous :: help(:)
14796 real(RKC) , intent(out) :: integral, abserr
14797 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14798 integer(IK) , intent(out) , contiguous :: sindex(:)
14799 integer(IK) , intent(out) :: neval
14800 integer(IK) , intent(out) :: nint
14801 integer(IK) :: err
14802 end function
14803#endif
14804
14805#if RK4_ENABLED
14806 module function QAGP_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14808 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK4
14809#endif
14810 use pm_kind, only: RKC => RK4
14811 procedure(real(RKC)) :: getFunc
14812 type(ninf_type) , intent(in) :: lb
14813 real(RKC) , intent(in) :: ub
14814 real(RKC) , intent(in) :: abstol
14815 real(RKC) , intent(in) :: reltol
14816 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14817 real(RKC) , intent(in) , contiguous :: help(:)
14818 real(RKC) , intent(out) :: integral, abserr
14819 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14820 integer(IK) , intent(out) , contiguous :: sindex(:)
14821 integer(IK) , intent(out) :: neval
14822 integer(IK) , intent(out) :: nint
14823 integer(IK) :: err
14824 end function
14825#endif
14826
14827#if RK3_ENABLED
14828 module function QAGP_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14830 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK3
14831#endif
14832 use pm_kind, only: RKC => RK3
14833 procedure(real(RKC)) :: getFunc
14834 type(ninf_type) , intent(in) :: lb
14835 real(RKC) , intent(in) :: ub
14836 real(RKC) , intent(in) :: abstol
14837 real(RKC) , intent(in) :: reltol
14838 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14839 real(RKC) , intent(in) , contiguous :: help(:)
14840 real(RKC) , intent(out) :: integral, abserr
14841 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14842 integer(IK) , intent(out) , contiguous :: sindex(:)
14843 integer(IK) , intent(out) :: neval
14844 integer(IK) , intent(out) :: nint
14845 integer(IK) :: err
14846 end function
14847#endif
14848
14849#if RK2_ENABLED
14850 module function QAGP_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14852 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK2
14853#endif
14854 use pm_kind, only: RKC => RK2
14855 procedure(real(RKC)) :: getFunc
14856 type(ninf_type) , intent(in) :: lb
14857 real(RKC) , intent(in) :: ub
14858 real(RKC) , intent(in) :: abstol
14859 real(RKC) , intent(in) :: reltol
14860 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14861 real(RKC) , intent(in) , contiguous :: help(:)
14862 real(RKC) , intent(out) :: integral, abserr
14863 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14864 integer(IK) , intent(out) , contiguous :: sindex(:)
14865 integer(IK) , intent(out) :: neval
14866 integer(IK) , intent(out) :: nint
14867 integer(IK) :: err
14868 end function
14869#endif
14870
14871#if RK1_ENABLED
14872 module function QAGP_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14874 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK1
14875#endif
14876 use pm_kind, only: RKC => RK1
14877 procedure(real(RKC)) :: getFunc
14878 type(ninf_type) , intent(in) :: lb
14879 real(RKC) , intent(in) :: ub
14880 real(RKC) , intent(in) :: abstol
14881 real(RKC) , intent(in) :: reltol
14882 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14883 real(RKC) , intent(in) , contiguous :: help(:)
14884 real(RKC) , intent(out) :: integral, abserr
14885 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14886 integer(IK) , intent(out) , contiguous :: sindex(:)
14887 integer(IK) , intent(out) :: neval
14888 integer(IK) , intent(out) :: nint
14889 integer(IK) :: err
14890 end function
14891#endif
14892
14893 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14894
14895#if RK5_ENABLED
14896 module function QAGP_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14898 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK5
14899#endif
14900 use pm_kind, only: RKC => RK5
14901 procedure(real(RKC)) :: getFunc
14902 type(ninf_type) , intent(in) :: lb
14903 type(pinf_type) , intent(in) :: ub
14904 real(RKC) , intent(in) :: abstol
14905 real(RKC) , intent(in) :: reltol
14906 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14907 real(RKC) , intent(in) , contiguous :: help(:)
14908 real(RKC) , intent(out) :: integral, abserr
14909 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14910 integer(IK) , intent(out) , contiguous :: sindex(:)
14911 integer(IK) , intent(out) :: neval
14912 integer(IK) , intent(out) :: nint
14913 integer(IK) :: err
14914 end function
14915#endif
14916
14917#if RK4_ENABLED
14918 module function QAGP_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14920 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK4
14921#endif
14922 use pm_kind, only: RKC => RK4
14923 procedure(real(RKC)) :: getFunc
14924 type(ninf_type) , intent(in) :: lb
14925 type(pinf_type) , intent(in) :: ub
14926 real(RKC) , intent(in) :: abstol
14927 real(RKC) , intent(in) :: reltol
14928 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14929 real(RKC) , intent(in) , contiguous :: help(:)
14930 real(RKC) , intent(out) :: integral, abserr
14931 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14932 integer(IK) , intent(out) , contiguous :: sindex(:)
14933 integer(IK) , intent(out) :: neval
14934 integer(IK) , intent(out) :: nint
14935 integer(IK) :: err
14936 end function
14937#endif
14938
14939#if RK3_ENABLED
14940 module function QAGP_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14942 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK3
14943#endif
14944 use pm_kind, only: RKC => RK3
14945 procedure(real(RKC)) :: getFunc
14946 type(ninf_type) , intent(in) :: lb
14947 type(pinf_type) , intent(in) :: ub
14948 real(RKC) , intent(in) :: abstol
14949 real(RKC) , intent(in) :: reltol
14950 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14951 real(RKC) , intent(in) , contiguous :: help(:)
14952 real(RKC) , intent(out) :: integral, abserr
14953 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14954 integer(IK) , intent(out) , contiguous :: sindex(:)
14955 integer(IK) , intent(out) :: neval
14956 integer(IK) , intent(out) :: nint
14957 integer(IK) :: err
14958 end function
14959#endif
14960
14961#if RK2_ENABLED
14962 module function QAGP_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14964 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK2
14965#endif
14966 use pm_kind, only: RKC => RK2
14967 procedure(real(RKC)) :: getFunc
14968 type(ninf_type) , intent(in) :: lb
14969 type(pinf_type) , intent(in) :: ub
14970 real(RKC) , intent(in) :: abstol
14971 real(RKC) , intent(in) :: reltol
14972 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14973 real(RKC) , intent(in) , contiguous :: help(:)
14974 real(RKC) , intent(out) :: integral, abserr
14975 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14976 integer(IK) , intent(out) , contiguous :: sindex(:)
14977 integer(IK) , intent(out) :: neval
14978 integer(IK) , intent(out) :: nint
14979 integer(IK) :: err
14980 end function
14981#endif
14982
14983#if RK1_ENABLED
14984 module function QAGP_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14986 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK1
14987#endif
14988 use pm_kind, only: RKC => RK1
14989 procedure(real(RKC)) :: getFunc
14990 type(ninf_type) , intent(in) :: lb
14991 type(pinf_type) , intent(in) :: ub
14992 real(RKC) , intent(in) :: abstol
14993 real(RKC) , intent(in) :: reltol
14994 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14995 real(RKC) , intent(in) , contiguous :: help(:)
14996 real(RKC) , intent(out) :: integral, abserr
14997 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14998 integer(IK) , intent(out) , contiguous :: sindex(:)
14999 integer(IK) , intent(out) :: neval
15000 integer(IK) , intent(out) :: nint
15001 integer(IK) :: err
15002 end function
15003#endif
15004
15005 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15006
15007 end interface
15008
15009!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15010
15011 ! QAWC FF
15012
15013 interface getQuadErr
15014
15015 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15016
15017#if RK5_ENABLED
15018 module function QAWC_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15019#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15020 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK5
15021#endif
15022 use pm_kind, only: RKC => RK5
15023 procedure(real(RKC)) :: getFunc
15024 real(RKC) , intent(in) :: lb
15025 real(RKC) , intent(in) :: ub
15026 real(RKC) , intent(in) :: abstol
15027 real(RKC) , intent(in) :: reltol
15028 type(GK15_type) , intent(in) :: qrule
15029 type(wcauchy_type) , intent(in) :: help
15030 real(RKC) , intent(out) :: integral, abserr
15031 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15032 integer(IK) , intent(out) , contiguous :: sindex(:)
15033 integer(IK) , intent(out) :: neval
15034 integer(IK) , intent(out) :: nint
15035 integer(IK) :: err
15036 end function
15037#endif
15038
15039#if RK4_ENABLED
15040 module function QAWC_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15041#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15042 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK4
15043#endif
15044 use pm_kind, only: RKC => RK4
15045 procedure(real(RKC)) :: getFunc
15046 real(RKC) , intent(in) :: lb
15047 real(RKC) , intent(in) :: ub
15048 real(RKC) , intent(in) :: abstol
15049 real(RKC) , intent(in) :: reltol
15050 type(GK15_type) , intent(in) :: qrule
15051 type(wcauchy_type) , intent(in) :: help
15052 real(RKC) , intent(out) :: integral, abserr
15053 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15054 integer(IK) , intent(out) , contiguous :: sindex(:)
15055 integer(IK) , intent(out) :: neval
15056 integer(IK) , intent(out) :: nint
15057 integer(IK) :: err
15058 end function
15059#endif
15060
15061#if RK3_ENABLED
15062 module function QAWC_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15064 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK3
15065#endif
15066 use pm_kind, only: RKC => RK3
15067 procedure(real(RKC)) :: getFunc
15068 real(RKC) , intent(in) :: lb
15069 real(RKC) , intent(in) :: ub
15070 real(RKC) , intent(in) :: abstol
15071 real(RKC) , intent(in) :: reltol
15072 type(GK15_type) , intent(in) :: qrule
15073 type(wcauchy_type) , intent(in) :: help
15074 real(RKC) , intent(out) :: integral, abserr
15075 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15076 integer(IK) , intent(out) , contiguous :: sindex(:)
15077 integer(IK) , intent(out) :: neval
15078 integer(IK) , intent(out) :: nint
15079 integer(IK) :: err
15080 end function
15081#endif
15082
15083#if RK2_ENABLED
15084 module function QAWC_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15086 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK2
15087#endif
15088 use pm_kind, only: RKC => RK2
15089 procedure(real(RKC)) :: getFunc
15090 real(RKC) , intent(in) :: lb
15091 real(RKC) , intent(in) :: ub
15092 real(RKC) , intent(in) :: abstol
15093 real(RKC) , intent(in) :: reltol
15094 type(GK15_type) , intent(in) :: qrule
15095 type(wcauchy_type) , intent(in) :: help
15096 real(RKC) , intent(out) :: integral, abserr
15097 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15098 integer(IK) , intent(out) , contiguous :: sindex(:)
15099 integer(IK) , intent(out) :: neval
15100 integer(IK) , intent(out) :: nint
15101 integer(IK) :: err
15102 end function
15103#endif
15104
15105#if RK1_ENABLED
15106 module function QAWC_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15108 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK1
15109#endif
15110 use pm_kind, only: RKC => RK1
15111 procedure(real(RKC)) :: getFunc
15112 real(RKC) , intent(in) :: lb
15113 real(RKC) , intent(in) :: ub
15114 real(RKC) , intent(in) :: abstol
15115 real(RKC) , intent(in) :: reltol
15116 type(GK15_type) , intent(in) :: qrule
15117 type(wcauchy_type) , intent(in) :: help
15118 real(RKC) , intent(out) :: integral, abserr
15119 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15120 integer(IK) , intent(out) , contiguous :: sindex(:)
15121 integer(IK) , intent(out) :: neval
15122 integer(IK) , intent(out) :: nint
15123 integer(IK) :: err
15124 end function
15125#endif
15126
15127 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15128
15129#if RK5_ENABLED
15130 module function QAWC_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15132 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK5
15133#endif
15134 use pm_kind, only: RKC => RK5
15135 procedure(real(RKC)) :: getFunc
15136 real(RKC) , intent(in) :: lb
15137 real(RKC) , intent(in) :: ub
15138 real(RKC) , intent(in) :: abstol
15139 real(RKC) , intent(in) :: reltol
15140 type(GK21_type) , intent(in) :: qrule
15141 type(wcauchy_type) , intent(in) :: help
15142 real(RKC) , intent(out) :: integral, abserr
15143 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15144 integer(IK) , intent(out) , contiguous :: sindex(:)
15145 integer(IK) , intent(out) :: neval
15146 integer(IK) , intent(out) :: nint
15147 integer(IK) :: err
15148 end function
15149#endif
15150
15151#if RK4_ENABLED
15152 module function QAWC_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15154 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK4
15155#endif
15156 use pm_kind, only: RKC => RK4
15157 procedure(real(RKC)) :: getFunc
15158 real(RKC) , intent(in) :: lb
15159 real(RKC) , intent(in) :: ub
15160 real(RKC) , intent(in) :: abstol
15161 real(RKC) , intent(in) :: reltol
15162 type(GK21_type) , intent(in) :: qrule
15163 type(wcauchy_type) , intent(in) :: help
15164 real(RKC) , intent(out) :: integral, abserr
15165 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15166 integer(IK) , intent(out) , contiguous :: sindex(:)
15167 integer(IK) , intent(out) :: neval
15168 integer(IK) , intent(out) :: nint
15169 integer(IK) :: err
15170 end function
15171#endif
15172
15173#if RK3_ENABLED
15174 module function QAWC_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15176 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK3
15177#endif
15178 use pm_kind, only: RKC => RK3
15179 procedure(real(RKC)) :: getFunc
15180 real(RKC) , intent(in) :: lb
15181 real(RKC) , intent(in) :: ub
15182 real(RKC) , intent(in) :: abstol
15183 real(RKC) , intent(in) :: reltol
15184 type(GK21_type) , intent(in) :: qrule
15185 type(wcauchy_type) , intent(in) :: help
15186 real(RKC) , intent(out) :: integral, abserr
15187 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15188 integer(IK) , intent(out) , contiguous :: sindex(:)
15189 integer(IK) , intent(out) :: neval
15190 integer(IK) , intent(out) :: nint
15191 integer(IK) :: err
15192 end function
15193#endif
15194
15195#if RK2_ENABLED
15196 module function QAWC_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15197#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15198 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK2
15199#endif
15200 use pm_kind, only: RKC => RK2
15201 procedure(real(RKC)) :: getFunc
15202 real(RKC) , intent(in) :: lb
15203 real(RKC) , intent(in) :: ub
15204 real(RKC) , intent(in) :: abstol
15205 real(RKC) , intent(in) :: reltol
15206 type(GK21_type) , intent(in) :: qrule
15207 type(wcauchy_type) , intent(in) :: help
15208 real(RKC) , intent(out) :: integral, abserr
15209 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15210 integer(IK) , intent(out) , contiguous :: sindex(:)
15211 integer(IK) , intent(out) :: neval
15212 integer(IK) , intent(out) :: nint
15213 integer(IK) :: err
15214 end function
15215#endif
15216
15217#if RK1_ENABLED
15218 module function QAWC_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15220 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK1
15221#endif
15222 use pm_kind, only: RKC => RK1
15223 procedure(real(RKC)) :: getFunc
15224 real(RKC) , intent(in) :: lb
15225 real(RKC) , intent(in) :: ub
15226 real(RKC) , intent(in) :: abstol
15227 real(RKC) , intent(in) :: reltol
15228 type(GK21_type) , intent(in) :: qrule
15229 type(wcauchy_type) , intent(in) :: help
15230 real(RKC) , intent(out) :: integral, abserr
15231 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15232 integer(IK) , intent(out) , contiguous :: sindex(:)
15233 integer(IK) , intent(out) :: neval
15234 integer(IK) , intent(out) :: nint
15235 integer(IK) :: err
15236 end function
15237#endif
15238
15239 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15240
15241#if RK5_ENABLED
15242 module function QAWC_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15244 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK5
15245#endif
15246 use pm_kind, only: RKC => RK5
15247 procedure(real(RKC)) :: getFunc
15248 real(RKC) , intent(in) :: lb
15249 real(RKC) , intent(in) :: ub
15250 real(RKC) , intent(in) :: abstol
15251 real(RKC) , intent(in) :: reltol
15252 type(GK31_type) , intent(in) :: qrule
15253 type(wcauchy_type) , intent(in) :: help
15254 real(RKC) , intent(out) :: integral, abserr
15255 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15256 integer(IK) , intent(out) , contiguous :: sindex(:)
15257 integer(IK) , intent(out) :: neval
15258 integer(IK) , intent(out) :: nint
15259 integer(IK) :: err
15260 end function
15261#endif
15262
15263#if RK4_ENABLED
15264 module function QAWC_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15266 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK4
15267#endif
15268 use pm_kind, only: RKC => RK4
15269 procedure(real(RKC)) :: getFunc
15270 real(RKC) , intent(in) :: lb
15271 real(RKC) , intent(in) :: ub
15272 real(RKC) , intent(in) :: abstol
15273 real(RKC) , intent(in) :: reltol
15274 type(GK31_type) , intent(in) :: qrule
15275 type(wcauchy_type) , intent(in) :: help
15276 real(RKC) , intent(out) :: integral, abserr
15277 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15278 integer(IK) , intent(out) , contiguous :: sindex(:)
15279 integer(IK) , intent(out) :: neval
15280 integer(IK) , intent(out) :: nint
15281 integer(IK) :: err
15282 end function
15283#endif
15284
15285#if RK3_ENABLED
15286 module function QAWC_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15288 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK3
15289#endif
15290 use pm_kind, only: RKC => RK3
15291 procedure(real(RKC)) :: getFunc
15292 real(RKC) , intent(in) :: lb
15293 real(RKC) , intent(in) :: ub
15294 real(RKC) , intent(in) :: abstol
15295 real(RKC) , intent(in) :: reltol
15296 type(GK31_type) , intent(in) :: qrule
15297 type(wcauchy_type) , intent(in) :: help
15298 real(RKC) , intent(out) :: integral, abserr
15299 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15300 integer(IK) , intent(out) , contiguous :: sindex(:)
15301 integer(IK) , intent(out) :: neval
15302 integer(IK) , intent(out) :: nint
15303 integer(IK) :: err
15304 end function
15305#endif
15306
15307#if RK2_ENABLED
15308 module function QAWC_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15310 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK2
15311#endif
15312 use pm_kind, only: RKC => RK2
15313 procedure(real(RKC)) :: getFunc
15314 real(RKC) , intent(in) :: lb
15315 real(RKC) , intent(in) :: ub
15316 real(RKC) , intent(in) :: abstol
15317 real(RKC) , intent(in) :: reltol
15318 type(GK31_type) , intent(in) :: qrule
15319 type(wcauchy_type) , intent(in) :: help
15320 real(RKC) , intent(out) :: integral, abserr
15321 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15322 integer(IK) , intent(out) , contiguous :: sindex(:)
15323 integer(IK) , intent(out) :: neval
15324 integer(IK) , intent(out) :: nint
15325 integer(IK) :: err
15326 end function
15327#endif
15328
15329#if RK1_ENABLED
15330 module function QAWC_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15331#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15332 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK1
15333#endif
15334 use pm_kind, only: RKC => RK1
15335 procedure(real(RKC)) :: getFunc
15336 real(RKC) , intent(in) :: lb
15337 real(RKC) , intent(in) :: ub
15338 real(RKC) , intent(in) :: abstol
15339 real(RKC) , intent(in) :: reltol
15340 type(GK31_type) , intent(in) :: qrule
15341 type(wcauchy_type) , intent(in) :: help
15342 real(RKC) , intent(out) :: integral, abserr
15343 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15344 integer(IK) , intent(out) , contiguous :: sindex(:)
15345 integer(IK) , intent(out) :: neval
15346 integer(IK) , intent(out) :: nint
15347 integer(IK) :: err
15348 end function
15349#endif
15350
15351 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15352
15353#if RK5_ENABLED
15354 module function QAWC_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15356 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK5
15357#endif
15358 use pm_kind, only: RKC => RK5
15359 procedure(real(RKC)) :: getFunc
15360 real(RKC) , intent(in) :: lb
15361 real(RKC) , intent(in) :: ub
15362 real(RKC) , intent(in) :: abstol
15363 real(RKC) , intent(in) :: reltol
15364 type(GK41_type) , intent(in) :: qrule
15365 type(wcauchy_type) , intent(in) :: help
15366 real(RKC) , intent(out) :: integral, abserr
15367 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15368 integer(IK) , intent(out) , contiguous :: sindex(:)
15369 integer(IK) , intent(out) :: neval
15370 integer(IK) , intent(out) :: nint
15371 integer(IK) :: err
15372 end function
15373#endif
15374
15375#if RK4_ENABLED
15376 module function QAWC_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15378 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK4
15379#endif
15380 use pm_kind, only: RKC => RK4
15381 procedure(real(RKC)) :: getFunc
15382 real(RKC) , intent(in) :: lb
15383 real(RKC) , intent(in) :: ub
15384 real(RKC) , intent(in) :: abstol
15385 real(RKC) , intent(in) :: reltol
15386 type(GK41_type) , intent(in) :: qrule
15387 type(wcauchy_type) , intent(in) :: help
15388 real(RKC) , intent(out) :: integral, abserr
15389 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15390 integer(IK) , intent(out) , contiguous :: sindex(:)
15391 integer(IK) , intent(out) :: neval
15392 integer(IK) , intent(out) :: nint
15393 integer(IK) :: err
15394 end function
15395#endif
15396
15397#if RK3_ENABLED
15398 module function QAWC_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15400 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK3
15401#endif
15402 use pm_kind, only: RKC => RK3
15403 procedure(real(RKC)) :: getFunc
15404 real(RKC) , intent(in) :: lb
15405 real(RKC) , intent(in) :: ub
15406 real(RKC) , intent(in) :: abstol
15407 real(RKC) , intent(in) :: reltol
15408 type(GK41_type) , intent(in) :: qrule
15409 type(wcauchy_type) , intent(in) :: help
15410 real(RKC) , intent(out) :: integral, abserr
15411 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15412 integer(IK) , intent(out) , contiguous :: sindex(:)
15413 integer(IK) , intent(out) :: neval
15414 integer(IK) , intent(out) :: nint
15415 integer(IK) :: err
15416 end function
15417#endif
15418
15419#if RK2_ENABLED
15420 module function QAWC_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15422 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK2
15423#endif
15424 use pm_kind, only: RKC => RK2
15425 procedure(real(RKC)) :: getFunc
15426 real(RKC) , intent(in) :: lb
15427 real(RKC) , intent(in) :: ub
15428 real(RKC) , intent(in) :: abstol
15429 real(RKC) , intent(in) :: reltol
15430 type(GK41_type) , intent(in) :: qrule
15431 type(wcauchy_type) , intent(in) :: help
15432 real(RKC) , intent(out) :: integral, abserr
15433 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15434 integer(IK) , intent(out) , contiguous :: sindex(:)
15435 integer(IK) , intent(out) :: neval
15436 integer(IK) , intent(out) :: nint
15437 integer(IK) :: err
15438 end function
15439#endif
15440
15441#if RK1_ENABLED
15442 module function QAWC_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15444 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK1
15445#endif
15446 use pm_kind, only: RKC => RK1
15447 procedure(real(RKC)) :: getFunc
15448 real(RKC) , intent(in) :: lb
15449 real(RKC) , intent(in) :: ub
15450 real(RKC) , intent(in) :: abstol
15451 real(RKC) , intent(in) :: reltol
15452 type(GK41_type) , intent(in) :: qrule
15453 type(wcauchy_type) , intent(in) :: help
15454 real(RKC) , intent(out) :: integral, abserr
15455 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15456 integer(IK) , intent(out) , contiguous :: sindex(:)
15457 integer(IK) , intent(out) :: neval
15458 integer(IK) , intent(out) :: nint
15459 integer(IK) :: err
15460 end function
15461#endif
15462
15463 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15464
15465#if RK5_ENABLED
15466 module function QAWC_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15468 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK5
15469#endif
15470 use pm_kind, only: RKC => RK5
15471 procedure(real(RKC)) :: getFunc
15472 real(RKC) , intent(in) :: lb
15473 real(RKC) , intent(in) :: ub
15474 real(RKC) , intent(in) :: abstol
15475 real(RKC) , intent(in) :: reltol
15476 type(GK51_type) , intent(in) :: qrule
15477 type(wcauchy_type) , intent(in) :: help
15478 real(RKC) , intent(out) :: integral, abserr
15479 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15480 integer(IK) , intent(out) , contiguous :: sindex(:)
15481 integer(IK) , intent(out) :: neval
15482 integer(IK) , intent(out) :: nint
15483 integer(IK) :: err
15484 end function
15485#endif
15486
15487#if RK4_ENABLED
15488 module function QAWC_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15490 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK4
15491#endif
15492 use pm_kind, only: RKC => RK4
15493 procedure(real(RKC)) :: getFunc
15494 real(RKC) , intent(in) :: lb
15495 real(RKC) , intent(in) :: ub
15496 real(RKC) , intent(in) :: abstol
15497 real(RKC) , intent(in) :: reltol
15498 type(GK51_type) , intent(in) :: qrule
15499 type(wcauchy_type) , intent(in) :: help
15500 real(RKC) , intent(out) :: integral, abserr
15501 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15502 integer(IK) , intent(out) , contiguous :: sindex(:)
15503 integer(IK) , intent(out) :: neval
15504 integer(IK) , intent(out) :: nint
15505 integer(IK) :: err
15506 end function
15507#endif
15508
15509#if RK3_ENABLED
15510 module function QAWC_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15512 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK3
15513#endif
15514 use pm_kind, only: RKC => RK3
15515 procedure(real(RKC)) :: getFunc
15516 real(RKC) , intent(in) :: lb
15517 real(RKC) , intent(in) :: ub
15518 real(RKC) , intent(in) :: abstol
15519 real(RKC) , intent(in) :: reltol
15520 type(GK51_type) , intent(in) :: qrule
15521 type(wcauchy_type) , intent(in) :: help
15522 real(RKC) , intent(out) :: integral, abserr
15523 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15524 integer(IK) , intent(out) , contiguous :: sindex(:)
15525 integer(IK) , intent(out) :: neval
15526 integer(IK) , intent(out) :: nint
15527 integer(IK) :: err
15528 end function
15529#endif
15530
15531#if RK2_ENABLED
15532 module function QAWC_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15534 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK2
15535#endif
15536 use pm_kind, only: RKC => RK2
15537 procedure(real(RKC)) :: getFunc
15538 real(RKC) , intent(in) :: lb
15539 real(RKC) , intent(in) :: ub
15540 real(RKC) , intent(in) :: abstol
15541 real(RKC) , intent(in) :: reltol
15542 type(GK51_type) , intent(in) :: qrule
15543 type(wcauchy_type) , intent(in) :: help
15544 real(RKC) , intent(out) :: integral, abserr
15545 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15546 integer(IK) , intent(out) , contiguous :: sindex(:)
15547 integer(IK) , intent(out) :: neval
15548 integer(IK) , intent(out) :: nint
15549 integer(IK) :: err
15550 end function
15551#endif
15552
15553#if RK1_ENABLED
15554 module function QAWC_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15556 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK1
15557#endif
15558 use pm_kind, only: RKC => RK1
15559 procedure(real(RKC)) :: getFunc
15560 real(RKC) , intent(in) :: lb
15561 real(RKC) , intent(in) :: ub
15562 real(RKC) , intent(in) :: abstol
15563 real(RKC) , intent(in) :: reltol
15564 type(GK51_type) , intent(in) :: qrule
15565 type(wcauchy_type) , intent(in) :: help
15566 real(RKC) , intent(out) :: integral, abserr
15567 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15568 integer(IK) , intent(out) , contiguous :: sindex(:)
15569 integer(IK) , intent(out) :: neval
15570 integer(IK) , intent(out) :: nint
15571 integer(IK) :: err
15572 end function
15573#endif
15574
15575 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15576
15577#if RK5_ENABLED
15578 module function QAWC_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15580 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK5
15581#endif
15582 use pm_kind, only: RKC => RK5
15583 procedure(real(RKC)) :: getFunc
15584 real(RKC) , intent(in) :: lb
15585 real(RKC) , intent(in) :: ub
15586 real(RKC) , intent(in) :: abstol
15587 real(RKC) , intent(in) :: reltol
15588 type(GK61_type) , intent(in) :: qrule
15589 type(wcauchy_type) , intent(in) :: help
15590 real(RKC) , intent(out) :: integral, abserr
15591 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15592 integer(IK) , intent(out) , contiguous :: sindex(:)
15593 integer(IK) , intent(out) :: neval
15594 integer(IK) , intent(out) :: nint
15595 integer(IK) :: err
15596 end function
15597#endif
15598
15599#if RK4_ENABLED
15600 module function QAWC_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15602 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK4
15603#endif
15604 use pm_kind, only: RKC => RK4
15605 procedure(real(RKC)) :: getFunc
15606 real(RKC) , intent(in) :: lb
15607 real(RKC) , intent(in) :: ub
15608 real(RKC) , intent(in) :: abstol
15609 real(RKC) , intent(in) :: reltol
15610 type(GK61_type) , intent(in) :: qrule
15611 type(wcauchy_type) , intent(in) :: help
15612 real(RKC) , intent(out) :: integral, abserr
15613 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15614 integer(IK) , intent(out) , contiguous :: sindex(:)
15615 integer(IK) , intent(out) :: neval
15616 integer(IK) , intent(out) :: nint
15617 integer(IK) :: err
15618 end function
15619#endif
15620
15621#if RK3_ENABLED
15622 module function QAWC_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15624 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK3
15625#endif
15626 use pm_kind, only: RKC => RK3
15627 procedure(real(RKC)) :: getFunc
15628 real(RKC) , intent(in) :: lb
15629 real(RKC) , intent(in) :: ub
15630 real(RKC) , intent(in) :: abstol
15631 real(RKC) , intent(in) :: reltol
15632 type(GK61_type) , intent(in) :: qrule
15633 type(wcauchy_type) , intent(in) :: help
15634 real(RKC) , intent(out) :: integral, abserr
15635 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15636 integer(IK) , intent(out) , contiguous :: sindex(:)
15637 integer(IK) , intent(out) :: neval
15638 integer(IK) , intent(out) :: nint
15639 integer(IK) :: err
15640 end function
15641#endif
15642
15643#if RK2_ENABLED
15644 module function QAWC_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15646 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK2
15647#endif
15648 use pm_kind, only: RKC => RK2
15649 procedure(real(RKC)) :: getFunc
15650 real(RKC) , intent(in) :: lb
15651 real(RKC) , intent(in) :: ub
15652 real(RKC) , intent(in) :: abstol
15653 real(RKC) , intent(in) :: reltol
15654 type(GK61_type) , intent(in) :: qrule
15655 type(wcauchy_type) , intent(in) :: help
15656 real(RKC) , intent(out) :: integral, abserr
15657 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15658 integer(IK) , intent(out) , contiguous :: sindex(:)
15659 integer(IK) , intent(out) :: neval
15660 integer(IK) , intent(out) :: nint
15661 integer(IK) :: err
15662 end function
15663#endif
15664
15665#if RK1_ENABLED
15666 module function QAWC_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15668 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK1
15669#endif
15670 use pm_kind, only: RKC => RK1
15671 procedure(real(RKC)) :: getFunc
15672 real(RKC) , intent(in) :: lb
15673 real(RKC) , intent(in) :: ub
15674 real(RKC) , intent(in) :: abstol
15675 real(RKC) , intent(in) :: reltol
15676 type(GK61_type) , intent(in) :: qrule
15677 type(wcauchy_type) , intent(in) :: help
15678 real(RKC) , intent(out) :: integral, abserr
15679 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15680 integer(IK) , intent(out) , contiguous :: sindex(:)
15681 integer(IK) , intent(out) :: neval
15682 integer(IK) , intent(out) :: nint
15683 integer(IK) :: err
15684 end function
15685#endif
15686
15687 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15688
15689#if RK5_ENABLED
15690 module function QAWC_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15692 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK5
15693#endif
15694 use pm_kind, only: RKC => RK5
15695 procedure(real(RKC)) :: getFunc
15696 real(RKC) , intent(in) :: lb
15697 real(RKC) , intent(in) :: ub
15698 real(RKC) , intent(in) :: abstol
15699 real(RKC) , intent(in) :: reltol
15700 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15701 type(wcauchy_type) , intent(in) :: help
15702 real(RKC) , intent(out) :: integral, abserr
15703 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15704 integer(IK) , intent(out) , contiguous :: sindex(:)
15705 integer(IK) , intent(out) :: neval
15706 integer(IK) , intent(out) :: nint
15707 integer(IK) :: err
15708 end function
15709#endif
15710
15711#if RK4_ENABLED
15712 module function QAWC_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15713#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15714 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK4
15715#endif
15716 use pm_kind, only: RKC => RK4
15717 procedure(real(RKC)) :: getFunc
15718 real(RKC) , intent(in) :: lb
15719 real(RKC) , intent(in) :: ub
15720 real(RKC) , intent(in) :: abstol
15721 real(RKC) , intent(in) :: reltol
15722 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15723 type(wcauchy_type) , intent(in) :: help
15724 real(RKC) , intent(out) :: integral, abserr
15725 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15726 integer(IK) , intent(out) , contiguous :: sindex(:)
15727 integer(IK) , intent(out) :: neval
15728 integer(IK) , intent(out) :: nint
15729 integer(IK) :: err
15730 end function
15731#endif
15732
15733#if RK3_ENABLED
15734 module function QAWC_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15736 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK3
15737#endif
15738 use pm_kind, only: RKC => RK3
15739 procedure(real(RKC)) :: getFunc
15740 real(RKC) , intent(in) :: lb
15741 real(RKC) , intent(in) :: ub
15742 real(RKC) , intent(in) :: abstol
15743 real(RKC) , intent(in) :: reltol
15744 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15745 type(wcauchy_type) , intent(in) :: help
15746 real(RKC) , intent(out) :: integral, abserr
15747 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15748 integer(IK) , intent(out) , contiguous :: sindex(:)
15749 integer(IK) , intent(out) :: neval
15750 integer(IK) , intent(out) :: nint
15751 integer(IK) :: err
15752 end function
15753#endif
15754
15755#if RK2_ENABLED
15756 module function QAWC_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15758 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK2
15759#endif
15760 use pm_kind, only: RKC => RK2
15761 procedure(real(RKC)) :: getFunc
15762 real(RKC) , intent(in) :: lb
15763 real(RKC) , intent(in) :: ub
15764 real(RKC) , intent(in) :: abstol
15765 real(RKC) , intent(in) :: reltol
15766 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15767 type(wcauchy_type) , intent(in) :: help
15768 real(RKC) , intent(out) :: integral, abserr
15769 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15770 integer(IK) , intent(out) , contiguous :: sindex(:)
15771 integer(IK) , intent(out) :: neval
15772 integer(IK) , intent(out) :: nint
15773 integer(IK) :: err
15774 end function
15775#endif
15776
15777#if RK1_ENABLED
15778 module function QAWC_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15780 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK1
15781#endif
15782 use pm_kind, only: RKC => RK1
15783 procedure(real(RKC)) :: getFunc
15784 real(RKC) , intent(in) :: lb
15785 real(RKC) , intent(in) :: ub
15786 real(RKC) , intent(in) :: abstol
15787 real(RKC) , intent(in) :: reltol
15788 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15789 type(wcauchy_type) , intent(in) :: help
15790 real(RKC) , intent(out) :: integral, abserr
15791 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15792 integer(IK) , intent(out) , contiguous :: sindex(:)
15793 integer(IK) , intent(out) :: neval
15794 integer(IK) , intent(out) :: nint
15795 integer(IK) :: err
15796 end function
15797#endif
15798
15799 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15800
15801 end interface
15802
15803 ! QAWC FI
15804
15805 interface getQuadErr
15806
15807 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15808
15809#if RK5_ENABLED
15810 module function QAWC_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15812 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK5
15813#endif
15814 use pm_kind, only: RKC => RK5
15815 procedure(real(RKC)) :: getFunc
15816 real(RKC) , intent(in) :: lb
15817 type(pinf_type) , intent(in) :: ub
15818 real(RKC) , intent(in) :: abstol
15819 real(RKC) , intent(in) :: reltol
15820 type(GK15_type) , intent(in) :: qrule
15821 type(wcauchy_type) , intent(in) :: help
15822 real(RKC) , intent(out) :: integral, abserr
15823 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15824 integer(IK) , intent(out) , contiguous :: sindex(:)
15825 integer(IK) , intent(out) :: neval
15826 integer(IK) , intent(out) :: nint
15827 integer(IK) :: err
15828 end function
15829#endif
15830
15831#if RK4_ENABLED
15832 module function QAWC_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15834 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK4
15835#endif
15836 use pm_kind, only: RKC => RK4
15837 procedure(real(RKC)) :: getFunc
15838 real(RKC) , intent(in) :: lb
15839 type(pinf_type) , intent(in) :: ub
15840 real(RKC) , intent(in) :: abstol
15841 real(RKC) , intent(in) :: reltol
15842 type(GK15_type) , intent(in) :: qrule
15843 type(wcauchy_type) , intent(in) :: help
15844 real(RKC) , intent(out) :: integral, abserr
15845 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15846 integer(IK) , intent(out) , contiguous :: sindex(:)
15847 integer(IK) , intent(out) :: neval
15848 integer(IK) , intent(out) :: nint
15849 integer(IK) :: err
15850 end function
15851#endif
15852
15853#if RK3_ENABLED
15854 module function QAWC_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15856 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK3
15857#endif
15858 use pm_kind, only: RKC => RK3
15859 procedure(real(RKC)) :: getFunc
15860 real(RKC) , intent(in) :: lb
15861 type(pinf_type) , intent(in) :: ub
15862 real(RKC) , intent(in) :: abstol
15863 real(RKC) , intent(in) :: reltol
15864 type(GK15_type) , intent(in) :: qrule
15865 type(wcauchy_type) , intent(in) :: help
15866 real(RKC) , intent(out) :: integral, abserr
15867 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15868 integer(IK) , intent(out) , contiguous :: sindex(:)
15869 integer(IK) , intent(out) :: neval
15870 integer(IK) , intent(out) :: nint
15871 integer(IK) :: err
15872 end function
15873#endif
15874
15875#if RK2_ENABLED
15876 module function QAWC_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15878 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK2
15879#endif
15880 use pm_kind, only: RKC => RK2
15881 procedure(real(RKC)) :: getFunc
15882 real(RKC) , intent(in) :: lb
15883 type(pinf_type) , intent(in) :: ub
15884 real(RKC) , intent(in) :: abstol
15885 real(RKC) , intent(in) :: reltol
15886 type(GK15_type) , intent(in) :: qrule
15887 type(wcauchy_type) , intent(in) :: help
15888 real(RKC) , intent(out) :: integral, abserr
15889 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15890 integer(IK) , intent(out) , contiguous :: sindex(:)
15891 integer(IK) , intent(out) :: neval
15892 integer(IK) , intent(out) :: nint
15893 integer(IK) :: err
15894 end function
15895#endif
15896
15897#if RK1_ENABLED
15898 module function QAWC_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15900 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK1
15901#endif
15902 use pm_kind, only: RKC => RK1
15903 procedure(real(RKC)) :: getFunc
15904 real(RKC) , intent(in) :: lb
15905 type(pinf_type) , intent(in) :: ub
15906 real(RKC) , intent(in) :: abstol
15907 real(RKC) , intent(in) :: reltol
15908 type(GK15_type) , intent(in) :: qrule
15909 type(wcauchy_type) , intent(in) :: help
15910 real(RKC) , intent(out) :: integral, abserr
15911 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15912 integer(IK) , intent(out) , contiguous :: sindex(:)
15913 integer(IK) , intent(out) :: neval
15914 integer(IK) , intent(out) :: nint
15915 integer(IK) :: err
15916 end function
15917#endif
15918
15919 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15920
15921#if RK5_ENABLED
15922 module function QAWC_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15924 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK5
15925#endif
15926 use pm_kind, only: RKC => RK5
15927 procedure(real(RKC)) :: getFunc
15928 real(RKC) , intent(in) :: lb
15929 type(pinf_type) , intent(in) :: ub
15930 real(RKC) , intent(in) :: abstol
15931 real(RKC) , intent(in) :: reltol
15932 type(GK21_type) , intent(in) :: qrule
15933 type(wcauchy_type) , intent(in) :: help
15934 real(RKC) , intent(out) :: integral, abserr
15935 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15936 integer(IK) , intent(out) , contiguous :: sindex(:)
15937 integer(IK) , intent(out) :: neval
15938 integer(IK) , intent(out) :: nint
15939 integer(IK) :: err
15940 end function
15941#endif
15942
15943#if RK4_ENABLED
15944 module function QAWC_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15946 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK4
15947#endif
15948 use pm_kind, only: RKC => RK4
15949 procedure(real(RKC)) :: getFunc
15950 real(RKC) , intent(in) :: lb
15951 type(pinf_type) , intent(in) :: ub
15952 real(RKC) , intent(in) :: abstol
15953 real(RKC) , intent(in) :: reltol
15954 type(GK21_type) , intent(in) :: qrule
15955 type(wcauchy_type) , intent(in) :: help
15956 real(RKC) , intent(out) :: integral, abserr
15957 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15958 integer(IK) , intent(out) , contiguous :: sindex(:)
15959 integer(IK) , intent(out) :: neval
15960 integer(IK) , intent(out) :: nint
15961 integer(IK) :: err
15962 end function
15963#endif
15964
15965#if RK3_ENABLED
15966 module function QAWC_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15968 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK3
15969#endif
15970 use pm_kind, only: RKC => RK3
15971 procedure(real(RKC)) :: getFunc
15972 real(RKC) , intent(in) :: lb
15973 type(pinf_type) , intent(in) :: ub
15974 real(RKC) , intent(in) :: abstol
15975 real(RKC) , intent(in) :: reltol
15976 type(GK21_type) , intent(in) :: qrule
15977 type(wcauchy_type) , intent(in) :: help
15978 real(RKC) , intent(out) :: integral, abserr
15979 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15980 integer(IK) , intent(out) , contiguous :: sindex(:)
15981 integer(IK) , intent(out) :: neval
15982 integer(IK) , intent(out) :: nint
15983 integer(IK) :: err
15984 end function
15985#endif
15986
15987#if RK2_ENABLED
15988 module function QAWC_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15990 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK2
15991#endif
15992 use pm_kind, only: RKC => RK2
15993 procedure(real(RKC)) :: getFunc
15994 real(RKC) , intent(in) :: lb
15995 type(pinf_type) , intent(in) :: ub
15996 real(RKC) , intent(in) :: abstol
15997 real(RKC) , intent(in) :: reltol
15998 type(GK21_type) , intent(in) :: qrule
15999 type(wcauchy_type) , intent(in) :: help
16000 real(RKC) , intent(out) :: integral, abserr
16001 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16002 integer(IK) , intent(out) , contiguous :: sindex(:)
16003 integer(IK) , intent(out) :: neval
16004 integer(IK) , intent(out) :: nint
16005 integer(IK) :: err
16006 end function
16007#endif
16008
16009#if RK1_ENABLED
16010 module function QAWC_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16011#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16012 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK1
16013#endif
16014 use pm_kind, only: RKC => RK1
16015 procedure(real(RKC)) :: getFunc
16016 real(RKC) , intent(in) :: lb
16017 type(pinf_type) , intent(in) :: ub
16018 real(RKC) , intent(in) :: abstol
16019 real(RKC) , intent(in) :: reltol
16020 type(GK21_type) , intent(in) :: qrule
16021 type(wcauchy_type) , intent(in) :: help
16022 real(RKC) , intent(out) :: integral, abserr
16023 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16024 integer(IK) , intent(out) , contiguous :: sindex(:)
16025 integer(IK) , intent(out) :: neval
16026 integer(IK) , intent(out) :: nint
16027 integer(IK) :: err
16028 end function
16029#endif
16030
16031 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16032
16033#if RK5_ENABLED
16034 module function QAWC_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16036 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK5
16037#endif
16038 use pm_kind, only: RKC => RK5
16039 procedure(real(RKC)) :: getFunc
16040 real(RKC) , intent(in) :: lb
16041 type(pinf_type) , intent(in) :: ub
16042 real(RKC) , intent(in) :: abstol
16043 real(RKC) , intent(in) :: reltol
16044 type(GK31_type) , intent(in) :: qrule
16045 type(wcauchy_type) , intent(in) :: help
16046 real(RKC) , intent(out) :: integral, abserr
16047 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16048 integer(IK) , intent(out) , contiguous :: sindex(:)
16049 integer(IK) , intent(out) :: neval
16050 integer(IK) , intent(out) :: nint
16051 integer(IK) :: err
16052 end function
16053#endif
16054
16055#if RK4_ENABLED
16056 module function QAWC_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16058 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK4
16059#endif
16060 use pm_kind, only: RKC => RK4
16061 procedure(real(RKC)) :: getFunc
16062 real(RKC) , intent(in) :: lb
16063 type(pinf_type) , intent(in) :: ub
16064 real(RKC) , intent(in) :: abstol
16065 real(RKC) , intent(in) :: reltol
16066 type(GK31_type) , intent(in) :: qrule
16067 type(wcauchy_type) , intent(in) :: help
16068 real(RKC) , intent(out) :: integral, abserr
16069 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16070 integer(IK) , intent(out) , contiguous :: sindex(:)
16071 integer(IK) , intent(out) :: neval
16072 integer(IK) , intent(out) :: nint
16073 integer(IK) :: err
16074 end function
16075#endif
16076
16077#if RK3_ENABLED
16078 module function QAWC_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16080 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK3
16081#endif
16082 use pm_kind, only: RKC => RK3
16083 procedure(real(RKC)) :: getFunc
16084 real(RKC) , intent(in) :: lb
16085 type(pinf_type) , intent(in) :: ub
16086 real(RKC) , intent(in) :: abstol
16087 real(RKC) , intent(in) :: reltol
16088 type(GK31_type) , intent(in) :: qrule
16089 type(wcauchy_type) , intent(in) :: help
16090 real(RKC) , intent(out) :: integral, abserr
16091 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16092 integer(IK) , intent(out) , contiguous :: sindex(:)
16093 integer(IK) , intent(out) :: neval
16094 integer(IK) , intent(out) :: nint
16095 integer(IK) :: err
16096 end function
16097#endif
16098
16099#if RK2_ENABLED
16100 module function QAWC_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16102 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK2
16103#endif
16104 use pm_kind, only: RKC => RK2
16105 procedure(real(RKC)) :: getFunc
16106 real(RKC) , intent(in) :: lb
16107 type(pinf_type) , intent(in) :: ub
16108 real(RKC) , intent(in) :: abstol
16109 real(RKC) , intent(in) :: reltol
16110 type(GK31_type) , intent(in) :: qrule
16111 type(wcauchy_type) , intent(in) :: help
16112 real(RKC) , intent(out) :: integral, abserr
16113 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16114 integer(IK) , intent(out) , contiguous :: sindex(:)
16115 integer(IK) , intent(out) :: neval
16116 integer(IK) , intent(out) :: nint
16117 integer(IK) :: err
16118 end function
16119#endif
16120
16121#if RK1_ENABLED
16122 module function QAWC_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16123#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16124 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK1
16125#endif
16126 use pm_kind, only: RKC => RK1
16127 procedure(real(RKC)) :: getFunc
16128 real(RKC) , intent(in) :: lb
16129 type(pinf_type) , intent(in) :: ub
16130 real(RKC) , intent(in) :: abstol
16131 real(RKC) , intent(in) :: reltol
16132 type(GK31_type) , intent(in) :: qrule
16133 type(wcauchy_type) , intent(in) :: help
16134 real(RKC) , intent(out) :: integral, abserr
16135 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16136 integer(IK) , intent(out) , contiguous :: sindex(:)
16137 integer(IK) , intent(out) :: neval
16138 integer(IK) , intent(out) :: nint
16139 integer(IK) :: err
16140 end function
16141#endif
16142
16143 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16144
16145#if RK5_ENABLED
16146 module function QAWC_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16147#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16148 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK5
16149#endif
16150 use pm_kind, only: RKC => RK5
16151 procedure(real(RKC)) :: getFunc
16152 real(RKC) , intent(in) :: lb
16153 type(pinf_type) , intent(in) :: ub
16154 real(RKC) , intent(in) :: abstol
16155 real(RKC) , intent(in) :: reltol
16156 type(GK41_type) , intent(in) :: qrule
16157 type(wcauchy_type) , intent(in) :: help
16158 real(RKC) , intent(out) :: integral, abserr
16159 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16160 integer(IK) , intent(out) , contiguous :: sindex(:)
16161 integer(IK) , intent(out) :: neval
16162 integer(IK) , intent(out) :: nint
16163 integer(IK) :: err
16164 end function
16165#endif
16166
16167#if RK4_ENABLED
16168 module function QAWC_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16170 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK4
16171#endif
16172 use pm_kind, only: RKC => RK4
16173 procedure(real(RKC)) :: getFunc
16174 real(RKC) , intent(in) :: lb
16175 type(pinf_type) , intent(in) :: ub
16176 real(RKC) , intent(in) :: abstol
16177 real(RKC) , intent(in) :: reltol
16178 type(GK41_type) , intent(in) :: qrule
16179 type(wcauchy_type) , intent(in) :: help
16180 real(RKC) , intent(out) :: integral, abserr
16181 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16182 integer(IK) , intent(out) , contiguous :: sindex(:)
16183 integer(IK) , intent(out) :: neval
16184 integer(IK) , intent(out) :: nint
16185 integer(IK) :: err
16186 end function
16187#endif
16188
16189#if RK3_ENABLED
16190 module function QAWC_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16192 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK3
16193#endif
16194 use pm_kind, only: RKC => RK3
16195 procedure(real(RKC)) :: getFunc
16196 real(RKC) , intent(in) :: lb
16197 type(pinf_type) , intent(in) :: ub
16198 real(RKC) , intent(in) :: abstol
16199 real(RKC) , intent(in) :: reltol
16200 type(GK41_type) , intent(in) :: qrule
16201 type(wcauchy_type) , intent(in) :: help
16202 real(RKC) , intent(out) :: integral, abserr
16203 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16204 integer(IK) , intent(out) , contiguous :: sindex(:)
16205 integer(IK) , intent(out) :: neval
16206 integer(IK) , intent(out) :: nint
16207 integer(IK) :: err
16208 end function
16209#endif
16210
16211#if RK2_ENABLED
16212 module function QAWC_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16214 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK2
16215#endif
16216 use pm_kind, only: RKC => RK2
16217 procedure(real(RKC)) :: getFunc
16218 real(RKC) , intent(in) :: lb
16219 type(pinf_type) , intent(in) :: ub
16220 real(RKC) , intent(in) :: abstol
16221 real(RKC) , intent(in) :: reltol
16222 type(GK41_type) , intent(in) :: qrule
16223 type(wcauchy_type) , intent(in) :: help
16224 real(RKC) , intent(out) :: integral, abserr
16225 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16226 integer(IK) , intent(out) , contiguous :: sindex(:)
16227 integer(IK) , intent(out) :: neval
16228 integer(IK) , intent(out) :: nint
16229 integer(IK) :: err
16230 end function
16231#endif
16232
16233#if RK1_ENABLED
16234 module function QAWC_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16236 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK1
16237#endif
16238 use pm_kind, only: RKC => RK1
16239 procedure(real(RKC)) :: getFunc
16240 real(RKC) , intent(in) :: lb
16241 type(pinf_type) , intent(in) :: ub
16242 real(RKC) , intent(in) :: abstol
16243 real(RKC) , intent(in) :: reltol
16244 type(GK41_type) , intent(in) :: qrule
16245 type(wcauchy_type) , intent(in) :: help
16246 real(RKC) , intent(out) :: integral, abserr
16247 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16248 integer(IK) , intent(out) , contiguous :: sindex(:)
16249 integer(IK) , intent(out) :: neval
16250 integer(IK) , intent(out) :: nint
16251 integer(IK) :: err
16252 end function
16253#endif
16254
16255 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16256
16257#if RK5_ENABLED
16258 module function QAWC_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16260 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK5
16261#endif
16262 use pm_kind, only: RKC => RK5
16263 procedure(real(RKC)) :: getFunc
16264 real(RKC) , intent(in) :: lb
16265 type(pinf_type) , intent(in) :: ub
16266 real(RKC) , intent(in) :: abstol
16267 real(RKC) , intent(in) :: reltol
16268 type(GK51_type) , intent(in) :: qrule
16269 type(wcauchy_type) , intent(in) :: help
16270 real(RKC) , intent(out) :: integral, abserr
16271 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16272 integer(IK) , intent(out) , contiguous :: sindex(:)
16273 integer(IK) , intent(out) :: neval
16274 integer(IK) , intent(out) :: nint
16275 integer(IK) :: err
16276 end function
16277#endif
16278
16279#if RK4_ENABLED
16280 module function QAWC_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16282 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK4
16283#endif
16284 use pm_kind, only: RKC => RK4
16285 procedure(real(RKC)) :: getFunc
16286 real(RKC) , intent(in) :: lb
16287 type(pinf_type) , intent(in) :: ub
16288 real(RKC) , intent(in) :: abstol
16289 real(RKC) , intent(in) :: reltol
16290 type(GK51_type) , intent(in) :: qrule
16291 type(wcauchy_type) , intent(in) :: help
16292 real(RKC) , intent(out) :: integral, abserr
16293 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16294 integer(IK) , intent(out) , contiguous :: sindex(:)
16295 integer(IK) , intent(out) :: neval
16296 integer(IK) , intent(out) :: nint
16297 integer(IK) :: err
16298 end function
16299#endif
16300
16301#if RK3_ENABLED
16302 module function QAWC_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16304 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK3
16305#endif
16306 use pm_kind, only: RKC => RK3
16307 procedure(real(RKC)) :: getFunc
16308 real(RKC) , intent(in) :: lb
16309 type(pinf_type) , intent(in) :: ub
16310 real(RKC) , intent(in) :: abstol
16311 real(RKC) , intent(in) :: reltol
16312 type(GK51_type) , intent(in) :: qrule
16313 type(wcauchy_type) , intent(in) :: help
16314 real(RKC) , intent(out) :: integral, abserr
16315 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16316 integer(IK) , intent(out) , contiguous :: sindex(:)
16317 integer(IK) , intent(out) :: neval
16318 integer(IK) , intent(out) :: nint
16319 integer(IK) :: err
16320 end function
16321#endif
16322
16323#if RK2_ENABLED
16324 module function QAWC_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16326 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK2
16327#endif
16328 use pm_kind, only: RKC => RK2
16329 procedure(real(RKC)) :: getFunc
16330 real(RKC) , intent(in) :: lb
16331 type(pinf_type) , intent(in) :: ub
16332 real(RKC) , intent(in) :: abstol
16333 real(RKC) , intent(in) :: reltol
16334 type(GK51_type) , intent(in) :: qrule
16335 type(wcauchy_type) , intent(in) :: help
16336 real(RKC) , intent(out) :: integral, abserr
16337 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16338 integer(IK) , intent(out) , contiguous :: sindex(:)
16339 integer(IK) , intent(out) :: neval
16340 integer(IK) , intent(out) :: nint
16341 integer(IK) :: err
16342 end function
16343#endif
16344
16345#if RK1_ENABLED
16346 module function QAWC_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16348 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK1
16349#endif
16350 use pm_kind, only: RKC => RK1
16351 procedure(real(RKC)) :: getFunc
16352 real(RKC) , intent(in) :: lb
16353 type(pinf_type) , intent(in) :: ub
16354 real(RKC) , intent(in) :: abstol
16355 real(RKC) , intent(in) :: reltol
16356 type(GK51_type) , intent(in) :: qrule
16357 type(wcauchy_type) , intent(in) :: help
16358 real(RKC) , intent(out) :: integral, abserr
16359 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16360 integer(IK) , intent(out) , contiguous :: sindex(:)
16361 integer(IK) , intent(out) :: neval
16362 integer(IK) , intent(out) :: nint
16363 integer(IK) :: err
16364 end function
16365#endif
16366
16367 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16368
16369#if RK5_ENABLED
16370 module function QAWC_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16372 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK5
16373#endif
16374 use pm_kind, only: RKC => RK5
16375 procedure(real(RKC)) :: getFunc
16376 real(RKC) , intent(in) :: lb
16377 type(pinf_type) , intent(in) :: ub
16378 real(RKC) , intent(in) :: abstol
16379 real(RKC) , intent(in) :: reltol
16380 type(GK61_type) , intent(in) :: qrule
16381 type(wcauchy_type) , intent(in) :: help
16382 real(RKC) , intent(out) :: integral, abserr
16383 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16384 integer(IK) , intent(out) , contiguous :: sindex(:)
16385 integer(IK) , intent(out) :: neval
16386 integer(IK) , intent(out) :: nint
16387 integer(IK) :: err
16388 end function
16389#endif
16390
16391#if RK4_ENABLED
16392 module function QAWC_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16394 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK4
16395#endif
16396 use pm_kind, only: RKC => RK4
16397 procedure(real(RKC)) :: getFunc
16398 real(RKC) , intent(in) :: lb
16399 type(pinf_type) , intent(in) :: ub
16400 real(RKC) , intent(in) :: abstol
16401 real(RKC) , intent(in) :: reltol
16402 type(GK61_type) , intent(in) :: qrule
16403 type(wcauchy_type) , intent(in) :: help
16404 real(RKC) , intent(out) :: integral, abserr
16405 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16406 integer(IK) , intent(out) , contiguous :: sindex(:)
16407 integer(IK) , intent(out) :: neval
16408 integer(IK) , intent(out) :: nint
16409 integer(IK) :: err
16410 end function
16411#endif
16412
16413#if RK3_ENABLED
16414 module function QAWC_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16416 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK3
16417#endif
16418 use pm_kind, only: RKC => RK3
16419 procedure(real(RKC)) :: getFunc
16420 real(RKC) , intent(in) :: lb
16421 type(pinf_type) , intent(in) :: ub
16422 real(RKC) , intent(in) :: abstol
16423 real(RKC) , intent(in) :: reltol
16424 type(GK61_type) , intent(in) :: qrule
16425 type(wcauchy_type) , intent(in) :: help
16426 real(RKC) , intent(out) :: integral, abserr
16427 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16428 integer(IK) , intent(out) , contiguous :: sindex(:)
16429 integer(IK) , intent(out) :: neval
16430 integer(IK) , intent(out) :: nint
16431 integer(IK) :: err
16432 end function
16433#endif
16434
16435#if RK2_ENABLED
16436 module function QAWC_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16438 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK2
16439#endif
16440 use pm_kind, only: RKC => RK2
16441 procedure(real(RKC)) :: getFunc
16442 real(RKC) , intent(in) :: lb
16443 type(pinf_type) , intent(in) :: ub
16444 real(RKC) , intent(in) :: abstol
16445 real(RKC) , intent(in) :: reltol
16446 type(GK61_type) , intent(in) :: qrule
16447 type(wcauchy_type) , intent(in) :: help
16448 real(RKC) , intent(out) :: integral, abserr
16449 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16450 integer(IK) , intent(out) , contiguous :: sindex(:)
16451 integer(IK) , intent(out) :: neval
16452 integer(IK) , intent(out) :: nint
16453 integer(IK) :: err
16454 end function
16455#endif
16456
16457#if RK1_ENABLED
16458 module function QAWC_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16460 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK1
16461#endif
16462 use pm_kind, only: RKC => RK1
16463 procedure(real(RKC)) :: getFunc
16464 real(RKC) , intent(in) :: lb
16465 type(pinf_type) , intent(in) :: ub
16466 real(RKC) , intent(in) :: abstol
16467 real(RKC) , intent(in) :: reltol
16468 type(GK61_type) , intent(in) :: qrule
16469 type(wcauchy_type) , intent(in) :: help
16470 real(RKC) , intent(out) :: integral, abserr
16471 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16472 integer(IK) , intent(out) , contiguous :: sindex(:)
16473 integer(IK) , intent(out) :: neval
16474 integer(IK) , intent(out) :: nint
16475 integer(IK) :: err
16476 end function
16477#endif
16478
16479 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16480
16481#if RK5_ENABLED
16482 module function QAWC_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16484 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK5
16485#endif
16486 use pm_kind, only: RKC => RK5
16487 procedure(real(RKC)) :: getFunc
16488 real(RKC) , intent(in) :: lb
16489 type(pinf_type) , intent(in) :: ub
16490 real(RKC) , intent(in) :: abstol
16491 real(RKC) , intent(in) :: reltol
16492 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16493 type(wcauchy_type) , intent(in) :: help
16494 real(RKC) , intent(out) :: integral, abserr
16495 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16496 integer(IK) , intent(out) , contiguous :: sindex(:)
16497 integer(IK) , intent(out) :: neval
16498 integer(IK) , intent(out) :: nint
16499 integer(IK) :: err
16500 end function
16501#endif
16502
16503#if RK4_ENABLED
16504 module function QAWC_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16506 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK4
16507#endif
16508 use pm_kind, only: RKC => RK4
16509 procedure(real(RKC)) :: getFunc
16510 real(RKC) , intent(in) :: lb
16511 type(pinf_type) , intent(in) :: ub
16512 real(RKC) , intent(in) :: abstol
16513 real(RKC) , intent(in) :: reltol
16514 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16515 type(wcauchy_type) , intent(in) :: help
16516 real(RKC) , intent(out) :: integral, abserr
16517 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16518 integer(IK) , intent(out) , contiguous :: sindex(:)
16519 integer(IK) , intent(out) :: neval
16520 integer(IK) , intent(out) :: nint
16521 integer(IK) :: err
16522 end function
16523#endif
16524
16525#if RK3_ENABLED
16526 module function QAWC_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16528 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK3
16529#endif
16530 use pm_kind, only: RKC => RK3
16531 procedure(real(RKC)) :: getFunc
16532 real(RKC) , intent(in) :: lb
16533 type(pinf_type) , intent(in) :: ub
16534 real(RKC) , intent(in) :: abstol
16535 real(RKC) , intent(in) :: reltol
16536 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16537 type(wcauchy_type) , intent(in) :: help
16538 real(RKC) , intent(out) :: integral, abserr
16539 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16540 integer(IK) , intent(out) , contiguous :: sindex(:)
16541 integer(IK) , intent(out) :: neval
16542 integer(IK) , intent(out) :: nint
16543 integer(IK) :: err
16544 end function
16545#endif
16546
16547#if RK2_ENABLED
16548 module function QAWC_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16550 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK2
16551#endif
16552 use pm_kind, only: RKC => RK2
16553 procedure(real(RKC)) :: getFunc
16554 real(RKC) , intent(in) :: lb
16555 type(pinf_type) , intent(in) :: ub
16556 real(RKC) , intent(in) :: abstol
16557 real(RKC) , intent(in) :: reltol
16558 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16559 type(wcauchy_type) , intent(in) :: help
16560 real(RKC) , intent(out) :: integral, abserr
16561 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16562 integer(IK) , intent(out) , contiguous :: sindex(:)
16563 integer(IK) , intent(out) :: neval
16564 integer(IK) , intent(out) :: nint
16565 integer(IK) :: err
16566 end function
16567#endif
16568
16569#if RK1_ENABLED
16570 module function QAWC_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16572 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK1
16573#endif
16574 use pm_kind, only: RKC => RK1
16575 procedure(real(RKC)) :: getFunc
16576 real(RKC) , intent(in) :: lb
16577 type(pinf_type) , intent(in) :: ub
16578 real(RKC) , intent(in) :: abstol
16579 real(RKC) , intent(in) :: reltol
16580 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16581 type(wcauchy_type) , intent(in) :: help
16582 real(RKC) , intent(out) :: integral, abserr
16583 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16584 integer(IK) , intent(out) , contiguous :: sindex(:)
16585 integer(IK) , intent(out) :: neval
16586 integer(IK) , intent(out) :: nint
16587 integer(IK) :: err
16588 end function
16589#endif
16590
16591 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16592
16593 end interface
16594
16595 ! QAWC IF
16596
16597 interface getQuadErr
16598
16599 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16600
16601#if RK5_ENABLED
16602 module function QAWC_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16604 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK5
16605#endif
16606 use pm_kind, only: RKC => RK5
16607 procedure(real(RKC)) :: getFunc
16608 type(ninf_type) , intent(in) :: lb
16609 real(RKC) , intent(in) :: ub
16610 real(RKC) , intent(in) :: abstol
16611 real(RKC) , intent(in) :: reltol
16612 type(GK15_type) , intent(in) :: qrule
16613 type(wcauchy_type) , intent(in) :: help
16614 real(RKC) , intent(out) :: integral, abserr
16615 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16616 integer(IK) , intent(out) , contiguous :: sindex(:)
16617 integer(IK) , intent(out) :: neval
16618 integer(IK) , intent(out) :: nint
16619 integer(IK) :: err
16620 end function
16621#endif
16622
16623#if RK4_ENABLED
16624 module function QAWC_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16625#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16626 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK4
16627#endif
16628 use pm_kind, only: RKC => RK4
16629 procedure(real(RKC)) :: getFunc
16630 type(ninf_type) , intent(in) :: lb
16631 real(RKC) , intent(in) :: ub
16632 real(RKC) , intent(in) :: abstol
16633 real(RKC) , intent(in) :: reltol
16634 type(GK15_type) , intent(in) :: qrule
16635 type(wcauchy_type) , intent(in) :: help
16636 real(RKC) , intent(out) :: integral, abserr
16637 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16638 integer(IK) , intent(out) , contiguous :: sindex(:)
16639 integer(IK) , intent(out) :: neval
16640 integer(IK) , intent(out) :: nint
16641 integer(IK) :: err
16642 end function
16643#endif
16644
16645#if RK3_ENABLED
16646 module function QAWC_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16648 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK3
16649#endif
16650 use pm_kind, only: RKC => RK3
16651 procedure(real(RKC)) :: getFunc
16652 type(ninf_type) , intent(in) :: lb
16653 real(RKC) , intent(in) :: ub
16654 real(RKC) , intent(in) :: abstol
16655 real(RKC) , intent(in) :: reltol
16656 type(GK15_type) , intent(in) :: qrule
16657 type(wcauchy_type) , intent(in) :: help
16658 real(RKC) , intent(out) :: integral, abserr
16659 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16660 integer(IK) , intent(out) , contiguous :: sindex(:)
16661 integer(IK) , intent(out) :: neval
16662 integer(IK) , intent(out) :: nint
16663 integer(IK) :: err
16664 end function
16665#endif
16666
16667#if RK2_ENABLED
16668 module function QAWC_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16669#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16670 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK2
16671#endif
16672 use pm_kind, only: RKC => RK2
16673 procedure(real(RKC)) :: getFunc
16674 type(ninf_type) , intent(in) :: lb
16675 real(RKC) , intent(in) :: ub
16676 real(RKC) , intent(in) :: abstol
16677 real(RKC) , intent(in) :: reltol
16678 type(GK15_type) , intent(in) :: qrule
16679 type(wcauchy_type) , intent(in) :: help
16680 real(RKC) , intent(out) :: integral, abserr
16681 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16682 integer(IK) , intent(out) , contiguous :: sindex(:)
16683 integer(IK) , intent(out) :: neval
16684 integer(IK) , intent(out) :: nint
16685 integer(IK) :: err
16686 end function
16687#endif
16688
16689#if RK1_ENABLED
16690 module function QAWC_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16692 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK1
16693#endif
16694 use pm_kind, only: RKC => RK1
16695 procedure(real(RKC)) :: getFunc
16696 type(ninf_type) , intent(in) :: lb
16697 real(RKC) , intent(in) :: ub
16698 real(RKC) , intent(in) :: abstol
16699 real(RKC) , intent(in) :: reltol
16700 type(GK15_type) , intent(in) :: qrule
16701 type(wcauchy_type) , intent(in) :: help
16702 real(RKC) , intent(out) :: integral, abserr
16703 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16704 integer(IK) , intent(out) , contiguous :: sindex(:)
16705 integer(IK) , intent(out) :: neval
16706 integer(IK) , intent(out) :: nint
16707 integer(IK) :: err
16708 end function
16709#endif
16710
16711 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16712
16713#if RK5_ENABLED
16714 module function QAWC_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16716 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK5
16717#endif
16718 use pm_kind, only: RKC => RK5
16719 procedure(real(RKC)) :: getFunc
16720 type(ninf_type) , intent(in) :: lb
16721 real(RKC) , intent(in) :: ub
16722 real(RKC) , intent(in) :: abstol
16723 real(RKC) , intent(in) :: reltol
16724 type(GK21_type) , intent(in) :: qrule
16725 type(wcauchy_type) , intent(in) :: help
16726 real(RKC) , intent(out) :: integral, abserr
16727 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16728 integer(IK) , intent(out) , contiguous :: sindex(:)
16729 integer(IK) , intent(out) :: neval
16730 integer(IK) , intent(out) :: nint
16731 integer(IK) :: err
16732 end function
16733#endif
16734
16735#if RK4_ENABLED
16736 module function QAWC_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16738 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK4
16739#endif
16740 use pm_kind, only: RKC => RK4
16741 procedure(real(RKC)) :: getFunc
16742 type(ninf_type) , intent(in) :: lb
16743 real(RKC) , intent(in) :: ub
16744 real(RKC) , intent(in) :: abstol
16745 real(RKC) , intent(in) :: reltol
16746 type(GK21_type) , intent(in) :: qrule
16747 type(wcauchy_type) , intent(in) :: help
16748 real(RKC) , intent(out) :: integral, abserr
16749 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16750 integer(IK) , intent(out) , contiguous :: sindex(:)
16751 integer(IK) , intent(out) :: neval
16752 integer(IK) , intent(out) :: nint
16753 integer(IK) :: err
16754 end function
16755#endif
16756
16757#if RK3_ENABLED
16758 module function QAWC_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16760 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK3
16761#endif
16762 use pm_kind, only: RKC => RK3
16763 procedure(real(RKC)) :: getFunc
16764 type(ninf_type) , intent(in) :: lb
16765 real(RKC) , intent(in) :: ub
16766 real(RKC) , intent(in) :: abstol
16767 real(RKC) , intent(in) :: reltol
16768 type(GK21_type) , intent(in) :: qrule
16769 type(wcauchy_type) , intent(in) :: help
16770 real(RKC) , intent(out) :: integral, abserr
16771 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16772 integer(IK) , intent(out) , contiguous :: sindex(:)
16773 integer(IK) , intent(out) :: neval
16774 integer(IK) , intent(out) :: nint
16775 integer(IK) :: err
16776 end function
16777#endif
16778
16779#if RK2_ENABLED
16780 module function QAWC_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16782 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK2
16783#endif
16784 use pm_kind, only: RKC => RK2
16785 procedure(real(RKC)) :: getFunc
16786 type(ninf_type) , intent(in) :: lb
16787 real(RKC) , intent(in) :: ub
16788 real(RKC) , intent(in) :: abstol
16789 real(RKC) , intent(in) :: reltol
16790 type(GK21_type) , intent(in) :: qrule
16791 type(wcauchy_type) , intent(in) :: help
16792 real(RKC) , intent(out) :: integral, abserr
16793 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16794 integer(IK) , intent(out) , contiguous :: sindex(:)
16795 integer(IK) , intent(out) :: neval
16796 integer(IK) , intent(out) :: nint
16797 integer(IK) :: err
16798 end function
16799#endif
16800
16801#if RK1_ENABLED
16802 module function QAWC_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16804 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK1
16805#endif
16806 use pm_kind, only: RKC => RK1
16807 procedure(real(RKC)) :: getFunc
16808 type(ninf_type) , intent(in) :: lb
16809 real(RKC) , intent(in) :: ub
16810 real(RKC) , intent(in) :: abstol
16811 real(RKC) , intent(in) :: reltol
16812 type(GK21_type) , intent(in) :: qrule
16813 type(wcauchy_type) , intent(in) :: help
16814 real(RKC) , intent(out) :: integral, abserr
16815 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16816 integer(IK) , intent(out) , contiguous :: sindex(:)
16817 integer(IK) , intent(out) :: neval
16818 integer(IK) , intent(out) :: nint
16819 integer(IK) :: err
16820 end function
16821#endif
16822
16823 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16824
16825#if RK5_ENABLED
16826 module function QAWC_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16828 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK5
16829#endif
16830 use pm_kind, only: RKC => RK5
16831 procedure(real(RKC)) :: getFunc
16832 type(ninf_type) , intent(in) :: lb
16833 real(RKC) , intent(in) :: ub
16834 real(RKC) , intent(in) :: abstol
16835 real(RKC) , intent(in) :: reltol
16836 type(GK31_type) , intent(in) :: qrule
16837 type(wcauchy_type) , intent(in) :: help
16838 real(RKC) , intent(out) :: integral, abserr
16839 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16840 integer(IK) , intent(out) , contiguous :: sindex(:)
16841 integer(IK) , intent(out) :: neval
16842 integer(IK) , intent(out) :: nint
16843 integer(IK) :: err
16844 end function
16845#endif
16846
16847#if RK4_ENABLED
16848 module function QAWC_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16850 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK4
16851#endif
16852 use pm_kind, only: RKC => RK4
16853 procedure(real(RKC)) :: getFunc
16854 type(ninf_type) , intent(in) :: lb
16855 real(RKC) , intent(in) :: ub
16856 real(RKC) , intent(in) :: abstol
16857 real(RKC) , intent(in) :: reltol
16858 type(GK31_type) , intent(in) :: qrule
16859 type(wcauchy_type) , intent(in) :: help
16860 real(RKC) , intent(out) :: integral, abserr
16861 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16862 integer(IK) , intent(out) , contiguous :: sindex(:)
16863 integer(IK) , intent(out) :: neval
16864 integer(IK) , intent(out) :: nint
16865 integer(IK) :: err
16866 end function
16867#endif
16868
16869#if RK3_ENABLED
16870 module function QAWC_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16872 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK3
16873#endif
16874 use pm_kind, only: RKC => RK3
16875 procedure(real(RKC)) :: getFunc
16876 type(ninf_type) , intent(in) :: lb
16877 real(RKC) , intent(in) :: ub
16878 real(RKC) , intent(in) :: abstol
16879 real(RKC) , intent(in) :: reltol
16880 type(GK31_type) , intent(in) :: qrule
16881 type(wcauchy_type) , intent(in) :: help
16882 real(RKC) , intent(out) :: integral, abserr
16883 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16884 integer(IK) , intent(out) , contiguous :: sindex(:)
16885 integer(IK) , intent(out) :: neval
16886 integer(IK) , intent(out) :: nint
16887 integer(IK) :: err
16888 end function
16889#endif
16890
16891#if RK2_ENABLED
16892 module function QAWC_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16894 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK2
16895#endif
16896 use pm_kind, only: RKC => RK2
16897 procedure(real(RKC)) :: getFunc
16898 type(ninf_type) , intent(in) :: lb
16899 real(RKC) , intent(in) :: ub
16900 real(RKC) , intent(in) :: abstol
16901 real(RKC) , intent(in) :: reltol
16902 type(GK31_type) , intent(in) :: qrule
16903 type(wcauchy_type) , intent(in) :: help
16904 real(RKC) , intent(out) :: integral, abserr
16905 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16906 integer(IK) , intent(out) , contiguous :: sindex(:)
16907 integer(IK) , intent(out) :: neval
16908 integer(IK) , intent(out) :: nint
16909 integer(IK) :: err
16910 end function
16911#endif
16912
16913#if RK1_ENABLED
16914 module function QAWC_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16916 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK1
16917#endif
16918 use pm_kind, only: RKC => RK1
16919 procedure(real(RKC)) :: getFunc
16920 type(ninf_type) , intent(in) :: lb
16921 real(RKC) , intent(in) :: ub
16922 real(RKC) , intent(in) :: abstol
16923 real(RKC) , intent(in) :: reltol
16924 type(GK31_type) , intent(in) :: qrule
16925 type(wcauchy_type) , intent(in) :: help
16926 real(RKC) , intent(out) :: integral, abserr
16927 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16928 integer(IK) , intent(out) , contiguous :: sindex(:)
16929 integer(IK) , intent(out) :: neval
16930 integer(IK) , intent(out) :: nint
16931 integer(IK) :: err
16932 end function
16933#endif
16934
16935 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16936
16937#if RK5_ENABLED
16938 module function QAWC_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16940 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK5
16941#endif
16942 use pm_kind, only: RKC => RK5
16943 procedure(real(RKC)) :: getFunc
16944 type(ninf_type) , intent(in) :: lb
16945 real(RKC) , intent(in) :: ub
16946 real(RKC) , intent(in) :: abstol
16947 real(RKC) , intent(in) :: reltol
16948 type(GK41_type) , intent(in) :: qrule
16949 type(wcauchy_type) , intent(in) :: help
16950 real(RKC) , intent(out) :: integral, abserr
16951 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16952 integer(IK) , intent(out) , contiguous :: sindex(:)
16953 integer(IK) , intent(out) :: neval
16954 integer(IK) , intent(out) :: nint
16955 integer(IK) :: err
16956 end function
16957#endif
16958
16959#if RK4_ENABLED
16960 module function QAWC_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16962 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK4
16963#endif
16964 use pm_kind, only: RKC => RK4
16965 procedure(real(RKC)) :: getFunc
16966 type(ninf_type) , intent(in) :: lb
16967 real(RKC) , intent(in) :: ub
16968 real(RKC) , intent(in) :: abstol
16969 real(RKC) , intent(in) :: reltol
16970 type(GK41_type) , intent(in) :: qrule
16971 type(wcauchy_type) , intent(in) :: help
16972 real(RKC) , intent(out) :: integral, abserr
16973 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16974 integer(IK) , intent(out) , contiguous :: sindex(:)
16975 integer(IK) , intent(out) :: neval
16976 integer(IK) , intent(out) :: nint
16977 integer(IK) :: err
16978 end function
16979#endif
16980
16981#if RK3_ENABLED
16982 module function QAWC_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16984 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK3
16985#endif
16986 use pm_kind, only: RKC => RK3
16987 procedure(real(RKC)) :: getFunc
16988 type(ninf_type) , intent(in) :: lb
16989 real(RKC) , intent(in) :: ub
16990 real(RKC) , intent(in) :: abstol
16991 real(RKC) , intent(in) :: reltol
16992 type(GK41_type) , intent(in) :: qrule
16993 type(wcauchy_type) , intent(in) :: help
16994 real(RKC) , intent(out) :: integral, abserr
16995 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16996 integer(IK) , intent(out) , contiguous :: sindex(:)
16997 integer(IK) , intent(out) :: neval
16998 integer(IK) , intent(out) :: nint
16999 integer(IK) :: err
17000 end function
17001#endif
17002
17003#if RK2_ENABLED
17004 module function QAWC_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17006 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK2
17007#endif
17008 use pm_kind, only: RKC => RK2
17009 procedure(real(RKC)) :: getFunc
17010 type(ninf_type) , intent(in) :: lb
17011 real(RKC) , intent(in) :: ub
17012 real(RKC) , intent(in) :: abstol
17013 real(RKC) , intent(in) :: reltol
17014 type(GK41_type) , intent(in) :: qrule
17015 type(wcauchy_type) , intent(in) :: help
17016 real(RKC) , intent(out) :: integral, abserr
17017 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17018 integer(IK) , intent(out) , contiguous :: sindex(:)
17019 integer(IK) , intent(out) :: neval
17020 integer(IK) , intent(out) :: nint
17021 integer(IK) :: err
17022 end function
17023#endif
17024
17025#if RK1_ENABLED
17026 module function QAWC_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17028 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK1
17029#endif
17030 use pm_kind, only: RKC => RK1
17031 procedure(real(RKC)) :: getFunc
17032 type(ninf_type) , intent(in) :: lb
17033 real(RKC) , intent(in) :: ub
17034 real(RKC) , intent(in) :: abstol
17035 real(RKC) , intent(in) :: reltol
17036 type(GK41_type) , intent(in) :: qrule
17037 type(wcauchy_type) , intent(in) :: help
17038 real(RKC) , intent(out) :: integral, abserr
17039 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17040 integer(IK) , intent(out) , contiguous :: sindex(:)
17041 integer(IK) , intent(out) :: neval
17042 integer(IK) , intent(out) :: nint
17043 integer(IK) :: err
17044 end function
17045#endif
17046
17047 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17048
17049#if RK5_ENABLED
17050 module function QAWC_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17052 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK5
17053#endif
17054 use pm_kind, only: RKC => RK5
17055 procedure(real(RKC)) :: getFunc
17056 type(ninf_type) , intent(in) :: lb
17057 real(RKC) , intent(in) :: ub
17058 real(RKC) , intent(in) :: abstol
17059 real(RKC) , intent(in) :: reltol
17060 type(GK51_type) , intent(in) :: qrule
17061 type(wcauchy_type) , intent(in) :: help
17062 real(RKC) , intent(out) :: integral, abserr
17063 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17064 integer(IK) , intent(out) , contiguous :: sindex(:)
17065 integer(IK) , intent(out) :: neval
17066 integer(IK) , intent(out) :: nint
17067 integer(IK) :: err
17068 end function
17069#endif
17070
17071#if RK4_ENABLED
17072 module function QAWC_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17074 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK4
17075#endif
17076 use pm_kind, only: RKC => RK4
17077 procedure(real(RKC)) :: getFunc
17078 type(ninf_type) , intent(in) :: lb
17079 real(RKC) , intent(in) :: ub
17080 real(RKC) , intent(in) :: abstol
17081 real(RKC) , intent(in) :: reltol
17082 type(GK51_type) , intent(in) :: qrule
17083 type(wcauchy_type) , intent(in) :: help
17084 real(RKC) , intent(out) :: integral, abserr
17085 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17086 integer(IK) , intent(out) , contiguous :: sindex(:)
17087 integer(IK) , intent(out) :: neval
17088 integer(IK) , intent(out) :: nint
17089 integer(IK) :: err
17090 end function
17091#endif
17092
17093#if RK3_ENABLED
17094 module function QAWC_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17096 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK3
17097#endif
17098 use pm_kind, only: RKC => RK3
17099 procedure(real(RKC)) :: getFunc
17100 type(ninf_type) , intent(in) :: lb
17101 real(RKC) , intent(in) :: ub
17102 real(RKC) , intent(in) :: abstol
17103 real(RKC) , intent(in) :: reltol
17104 type(GK51_type) , intent(in) :: qrule
17105 type(wcauchy_type) , intent(in) :: help
17106 real(RKC) , intent(out) :: integral, abserr
17107 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17108 integer(IK) , intent(out) , contiguous :: sindex(:)
17109 integer(IK) , intent(out) :: neval
17110 integer(IK) , intent(out) :: nint
17111 integer(IK) :: err
17112 end function
17113#endif
17114
17115#if RK2_ENABLED
17116 module function QAWC_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17118 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK2
17119#endif
17120 use pm_kind, only: RKC => RK2
17121 procedure(real(RKC)) :: getFunc
17122 type(ninf_type) , intent(in) :: lb
17123 real(RKC) , intent(in) :: ub
17124 real(RKC) , intent(in) :: abstol
17125 real(RKC) , intent(in) :: reltol
17126 type(GK51_type) , intent(in) :: qrule
17127 type(wcauchy_type) , intent(in) :: help
17128 real(RKC) , intent(out) :: integral, abserr
17129 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17130 integer(IK) , intent(out) , contiguous :: sindex(:)
17131 integer(IK) , intent(out) :: neval
17132 integer(IK) , intent(out) :: nint
17133 integer(IK) :: err
17134 end function
17135#endif
17136
17137#if RK1_ENABLED
17138 module function QAWC_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17140 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK1
17141#endif
17142 use pm_kind, only: RKC => RK1
17143 procedure(real(RKC)) :: getFunc
17144 type(ninf_type) , intent(in) :: lb
17145 real(RKC) , intent(in) :: ub
17146 real(RKC) , intent(in) :: abstol
17147 real(RKC) , intent(in) :: reltol
17148 type(GK51_type) , intent(in) :: qrule
17149 type(wcauchy_type) , intent(in) :: help
17150 real(RKC) , intent(out) :: integral, abserr
17151 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17152 integer(IK) , intent(out) , contiguous :: sindex(:)
17153 integer(IK) , intent(out) :: neval
17154 integer(IK) , intent(out) :: nint
17155 integer(IK) :: err
17156 end function
17157#endif
17158
17159 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17160
17161#if RK5_ENABLED
17162 module function QAWC_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17164 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK5
17165#endif
17166 use pm_kind, only: RKC => RK5
17167 procedure(real(RKC)) :: getFunc
17168 type(ninf_type) , intent(in) :: lb
17169 real(RKC) , intent(in) :: ub
17170 real(RKC) , intent(in) :: abstol
17171 real(RKC) , intent(in) :: reltol
17172 type(GK61_type) , intent(in) :: qrule
17173 type(wcauchy_type) , intent(in) :: help
17174 real(RKC) , intent(out) :: integral, abserr
17175 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17176 integer(IK) , intent(out) , contiguous :: sindex(:)
17177 integer(IK) , intent(out) :: neval
17178 integer(IK) , intent(out) :: nint
17179 integer(IK) :: err
17180 end function
17181#endif
17182
17183#if RK4_ENABLED
17184 module function QAWC_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17186 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK4
17187#endif
17188 use pm_kind, only: RKC => RK4
17189 procedure(real(RKC)) :: getFunc
17190 type(ninf_type) , intent(in) :: lb
17191 real(RKC) , intent(in) :: ub
17192 real(RKC) , intent(in) :: abstol
17193 real(RKC) , intent(in) :: reltol
17194 type(GK61_type) , intent(in) :: qrule
17195 type(wcauchy_type) , intent(in) :: help
17196 real(RKC) , intent(out) :: integral, abserr
17197 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17198 integer(IK) , intent(out) , contiguous :: sindex(:)
17199 integer(IK) , intent(out) :: neval
17200 integer(IK) , intent(out) :: nint
17201 integer(IK) :: err
17202 end function
17203#endif
17204
17205#if RK3_ENABLED
17206 module function QAWC_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17208 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK3
17209#endif
17210 use pm_kind, only: RKC => RK3
17211 procedure(real(RKC)) :: getFunc
17212 type(ninf_type) , intent(in) :: lb
17213 real(RKC) , intent(in) :: ub
17214 real(RKC) , intent(in) :: abstol
17215 real(RKC) , intent(in) :: reltol
17216 type(GK61_type) , intent(in) :: qrule
17217 type(wcauchy_type) , intent(in) :: help
17218 real(RKC) , intent(out) :: integral, abserr
17219 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17220 integer(IK) , intent(out) , contiguous :: sindex(:)
17221 integer(IK) , intent(out) :: neval
17222 integer(IK) , intent(out) :: nint
17223 integer(IK) :: err
17224 end function
17225#endif
17226
17227#if RK2_ENABLED
17228 module function QAWC_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17230 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK2
17231#endif
17232 use pm_kind, only: RKC => RK2
17233 procedure(real(RKC)) :: getFunc
17234 type(ninf_type) , intent(in) :: lb
17235 real(RKC) , intent(in) :: ub
17236 real(RKC) , intent(in) :: abstol
17237 real(RKC) , intent(in) :: reltol
17238 type(GK61_type) , intent(in) :: qrule
17239 type(wcauchy_type) , intent(in) :: help
17240 real(RKC) , intent(out) :: integral, abserr
17241 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17242 integer(IK) , intent(out) , contiguous :: sindex(:)
17243 integer(IK) , intent(out) :: neval
17244 integer(IK) , intent(out) :: nint
17245 integer(IK) :: err
17246 end function
17247#endif
17248
17249#if RK1_ENABLED
17250 module function QAWC_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17252 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK1
17253#endif
17254 use pm_kind, only: RKC => RK1
17255 procedure(real(RKC)) :: getFunc
17256 type(ninf_type) , intent(in) :: lb
17257 real(RKC) , intent(in) :: ub
17258 real(RKC) , intent(in) :: abstol
17259 real(RKC) , intent(in) :: reltol
17260 type(GK61_type) , intent(in) :: qrule
17261 type(wcauchy_type) , intent(in) :: help
17262 real(RKC) , intent(out) :: integral, abserr
17263 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17264 integer(IK) , intent(out) , contiguous :: sindex(:)
17265 integer(IK) , intent(out) :: neval
17266 integer(IK) , intent(out) :: nint
17267 integer(IK) :: err
17268 end function
17269#endif
17270
17271 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17272
17273#if RK5_ENABLED
17274 module function QAWC_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17275#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17276 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK5
17277#endif
17278 use pm_kind, only: RKC => RK5
17279 procedure(real(RKC)) :: getFunc
17280 type(ninf_type) , intent(in) :: lb
17281 real(RKC) , intent(in) :: ub
17282 real(RKC) , intent(in) :: abstol
17283 real(RKC) , intent(in) :: reltol
17284 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17285 type(wcauchy_type) , intent(in) :: help
17286 real(RKC) , intent(out) :: integral, abserr
17287 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17288 integer(IK) , intent(out) , contiguous :: sindex(:)
17289 integer(IK) , intent(out) :: neval
17290 integer(IK) , intent(out) :: nint
17291 integer(IK) :: err
17292 end function
17293#endif
17294
17295#if RK4_ENABLED
17296 module function QAWC_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17298 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK4
17299#endif
17300 use pm_kind, only: RKC => RK4
17301 procedure(real(RKC)) :: getFunc
17302 type(ninf_type) , intent(in) :: lb
17303 real(RKC) , intent(in) :: ub
17304 real(RKC) , intent(in) :: abstol
17305 real(RKC) , intent(in) :: reltol
17306 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17307 type(wcauchy_type) , intent(in) :: help
17308 real(RKC) , intent(out) :: integral, abserr
17309 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17310 integer(IK) , intent(out) , contiguous :: sindex(:)
17311 integer(IK) , intent(out) :: neval
17312 integer(IK) , intent(out) :: nint
17313 integer(IK) :: err
17314 end function
17315#endif
17316
17317#if RK3_ENABLED
17318 module function QAWC_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17320 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK3
17321#endif
17322 use pm_kind, only: RKC => RK3
17323 procedure(real(RKC)) :: getFunc
17324 type(ninf_type) , intent(in) :: lb
17325 real(RKC) , intent(in) :: ub
17326 real(RKC) , intent(in) :: abstol
17327 real(RKC) , intent(in) :: reltol
17328 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17329 type(wcauchy_type) , intent(in) :: help
17330 real(RKC) , intent(out) :: integral, abserr
17331 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17332 integer(IK) , intent(out) , contiguous :: sindex(:)
17333 integer(IK) , intent(out) :: neval
17334 integer(IK) , intent(out) :: nint
17335 integer(IK) :: err
17336 end function
17337#endif
17338
17339#if RK2_ENABLED
17340 module function QAWC_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17341#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17342 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK2
17343#endif
17344 use pm_kind, only: RKC => RK2
17345 procedure(real(RKC)) :: getFunc
17346 type(ninf_type) , intent(in) :: lb
17347 real(RKC) , intent(in) :: ub
17348 real(RKC) , intent(in) :: abstol
17349 real(RKC) , intent(in) :: reltol
17350 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17351 type(wcauchy_type) , intent(in) :: help
17352 real(RKC) , intent(out) :: integral, abserr
17353 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17354 integer(IK) , intent(out) , contiguous :: sindex(:)
17355 integer(IK) , intent(out) :: neval
17356 integer(IK) , intent(out) :: nint
17357 integer(IK) :: err
17358 end function
17359#endif
17360
17361#if RK1_ENABLED
17362 module function QAWC_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17364 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK1
17365#endif
17366 use pm_kind, only: RKC => RK1
17367 procedure(real(RKC)) :: getFunc
17368 type(ninf_type) , intent(in) :: lb
17369 real(RKC) , intent(in) :: ub
17370 real(RKC) , intent(in) :: abstol
17371 real(RKC) , intent(in) :: reltol
17372 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17373 type(wcauchy_type) , intent(in) :: help
17374 real(RKC) , intent(out) :: integral, abserr
17375 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17376 integer(IK) , intent(out) , contiguous :: sindex(:)
17377 integer(IK) , intent(out) :: neval
17378 integer(IK) , intent(out) :: nint
17379 integer(IK) :: err
17380 end function
17381#endif
17382
17383 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17384
17385 end interface
17386
17387 ! QAWC II
17388
17389 interface getQuadErr
17390
17391 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17392
17393#if RK5_ENABLED
17394 module function QAWC_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17396 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK5
17397#endif
17398 use pm_kind, only: RKC => RK5
17399 procedure(real(RKC)) :: getFunc
17400 type(ninf_type) , intent(in) :: lb
17401 type(pinf_type) , intent(in) :: ub
17402 real(RKC) , intent(in) :: abstol
17403 real(RKC) , intent(in) :: reltol
17404 type(GK15_type) , intent(in) :: qrule
17405 type(wcauchy_type) , intent(in) :: help
17406 real(RKC) , intent(out) :: integral, abserr
17407 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17408 integer(IK) , intent(out) , contiguous :: sindex(:)
17409 integer(IK) , intent(out) :: neval
17410 integer(IK) , intent(out) :: nint
17411 integer(IK) :: err
17412 end function
17413#endif
17414
17415#if RK4_ENABLED
17416 module function QAWC_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17418 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK4
17419#endif
17420 use pm_kind, only: RKC => RK4
17421 procedure(real(RKC)) :: getFunc
17422 type(ninf_type) , intent(in) :: lb
17423 type(pinf_type) , intent(in) :: ub
17424 real(RKC) , intent(in) :: abstol
17425 real(RKC) , intent(in) :: reltol
17426 type(GK15_type) , intent(in) :: qrule
17427 type(wcauchy_type) , intent(in) :: help
17428 real(RKC) , intent(out) :: integral, abserr
17429 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17430 integer(IK) , intent(out) , contiguous :: sindex(:)
17431 integer(IK) , intent(out) :: neval
17432 integer(IK) , intent(out) :: nint
17433 integer(IK) :: err
17434 end function
17435#endif
17436
17437#if RK3_ENABLED
17438 module function QAWC_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17440 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK3
17441#endif
17442 use pm_kind, only: RKC => RK3
17443 procedure(real(RKC)) :: getFunc
17444 type(ninf_type) , intent(in) :: lb
17445 type(pinf_type) , intent(in) :: ub
17446 real(RKC) , intent(in) :: abstol
17447 real(RKC) , intent(in) :: reltol
17448 type(GK15_type) , intent(in) :: qrule
17449 type(wcauchy_type) , intent(in) :: help
17450 real(RKC) , intent(out) :: integral, abserr
17451 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17452 integer(IK) , intent(out) , contiguous :: sindex(:)
17453 integer(IK) , intent(out) :: neval
17454 integer(IK) , intent(out) :: nint
17455 integer(IK) :: err
17456 end function
17457#endif
17458
17459#if RK2_ENABLED
17460 module function QAWC_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17462 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK2
17463#endif
17464 use pm_kind, only: RKC => RK2
17465 procedure(real(RKC)) :: getFunc
17466 type(ninf_type) , intent(in) :: lb
17467 type(pinf_type) , intent(in) :: ub
17468 real(RKC) , intent(in) :: abstol
17469 real(RKC) , intent(in) :: reltol
17470 type(GK15_type) , intent(in) :: qrule
17471 type(wcauchy_type) , intent(in) :: help
17472 real(RKC) , intent(out) :: integral, abserr
17473 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17474 integer(IK) , intent(out) , contiguous :: sindex(:)
17475 integer(IK) , intent(out) :: neval
17476 integer(IK) , intent(out) :: nint
17477 integer(IK) :: err
17478 end function
17479#endif
17480
17481#if RK1_ENABLED
17482 module function QAWC_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17484 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK1
17485#endif
17486 use pm_kind, only: RKC => RK1
17487 procedure(real(RKC)) :: getFunc
17488 type(ninf_type) , intent(in) :: lb
17489 type(pinf_type) , intent(in) :: ub
17490 real(RKC) , intent(in) :: abstol
17491 real(RKC) , intent(in) :: reltol
17492 type(GK15_type) , intent(in) :: qrule
17493 type(wcauchy_type) , intent(in) :: help
17494 real(RKC) , intent(out) :: integral, abserr
17495 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17496 integer(IK) , intent(out) , contiguous :: sindex(:)
17497 integer(IK) , intent(out) :: neval
17498 integer(IK) , intent(out) :: nint
17499 integer(IK) :: err
17500 end function
17501#endif
17502
17503 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17504
17505#if RK5_ENABLED
17506 module function QAWC_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17508 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK5
17509#endif
17510 use pm_kind, only: RKC => RK5
17511 procedure(real(RKC)) :: getFunc
17512 type(ninf_type) , intent(in) :: lb
17513 type(pinf_type) , intent(in) :: ub
17514 real(RKC) , intent(in) :: abstol
17515 real(RKC) , intent(in) :: reltol
17516 type(GK21_type) , intent(in) :: qrule
17517 type(wcauchy_type) , intent(in) :: help
17518 real(RKC) , intent(out) :: integral, abserr
17519 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17520 integer(IK) , intent(out) , contiguous :: sindex(:)
17521 integer(IK) , intent(out) :: neval
17522 integer(IK) , intent(out) :: nint
17523 integer(IK) :: err
17524 end function
17525#endif
17526
17527#if RK4_ENABLED
17528 module function QAWC_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17530 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK4
17531#endif
17532 use pm_kind, only: RKC => RK4
17533 procedure(real(RKC)) :: getFunc
17534 type(ninf_type) , intent(in) :: lb
17535 type(pinf_type) , intent(in) :: ub
17536 real(RKC) , intent(in) :: abstol
17537 real(RKC) , intent(in) :: reltol
17538 type(GK21_type) , intent(in) :: qrule
17539 type(wcauchy_type) , intent(in) :: help
17540 real(RKC) , intent(out) :: integral, abserr
17541 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17542 integer(IK) , intent(out) , contiguous :: sindex(:)
17543 integer(IK) , intent(out) :: neval
17544 integer(IK) , intent(out) :: nint
17545 integer(IK) :: err
17546 end function
17547#endif
17548
17549#if RK3_ENABLED
17550 module function QAWC_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17552 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK3
17553#endif
17554 use pm_kind, only: RKC => RK3
17555 procedure(real(RKC)) :: getFunc
17556 type(ninf_type) , intent(in) :: lb
17557 type(pinf_type) , intent(in) :: ub
17558 real(RKC) , intent(in) :: abstol
17559 real(RKC) , intent(in) :: reltol
17560 type(GK21_type) , intent(in) :: qrule
17561 type(wcauchy_type) , intent(in) :: help
17562 real(RKC) , intent(out) :: integral, abserr
17563 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17564 integer(IK) , intent(out) , contiguous :: sindex(:)
17565 integer(IK) , intent(out) :: neval
17566 integer(IK) , intent(out) :: nint
17567 integer(IK) :: err
17568 end function
17569#endif
17570
17571#if RK2_ENABLED
17572 module function QAWC_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17574 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK2
17575#endif
17576 use pm_kind, only: RKC => RK2
17577 procedure(real(RKC)) :: getFunc
17578 type(ninf_type) , intent(in) :: lb
17579 type(pinf_type) , intent(in) :: ub
17580 real(RKC) , intent(in) :: abstol
17581 real(RKC) , intent(in) :: reltol
17582 type(GK21_type) , intent(in) :: qrule
17583 type(wcauchy_type) , intent(in) :: help
17584 real(RKC) , intent(out) :: integral, abserr
17585 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17586 integer(IK) , intent(out) , contiguous :: sindex(:)
17587 integer(IK) , intent(out) :: neval
17588 integer(IK) , intent(out) :: nint
17589 integer(IK) :: err
17590 end function
17591#endif
17592
17593#if RK1_ENABLED
17594 module function QAWC_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17596 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK1
17597#endif
17598 use pm_kind, only: RKC => RK1
17599 procedure(real(RKC)) :: getFunc
17600 type(ninf_type) , intent(in) :: lb
17601 type(pinf_type) , intent(in) :: ub
17602 real(RKC) , intent(in) :: abstol
17603 real(RKC) , intent(in) :: reltol
17604 type(GK21_type) , intent(in) :: qrule
17605 type(wcauchy_type) , intent(in) :: help
17606 real(RKC) , intent(out) :: integral, abserr
17607 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17608 integer(IK) , intent(out) , contiguous :: sindex(:)
17609 integer(IK) , intent(out) :: neval
17610 integer(IK) , intent(out) :: nint
17611 integer(IK) :: err
17612 end function
17613#endif
17614
17615 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17616
17617#if RK5_ENABLED
17618 module function QAWC_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17620 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK5
17621#endif
17622 use pm_kind, only: RKC => RK5
17623 procedure(real(RKC)) :: getFunc
17624 type(ninf_type) , intent(in) :: lb
17625 type(pinf_type) , intent(in) :: ub
17626 real(RKC) , intent(in) :: abstol
17627 real(RKC) , intent(in) :: reltol
17628 type(GK31_type) , intent(in) :: qrule
17629 type(wcauchy_type) , intent(in) :: help
17630 real(RKC) , intent(out) :: integral, abserr
17631 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17632 integer(IK) , intent(out) , contiguous :: sindex(:)
17633 integer(IK) , intent(out) :: neval
17634 integer(IK) , intent(out) :: nint
17635 integer(IK) :: err
17636 end function
17637#endif
17638
17639#if RK4_ENABLED
17640 module function QAWC_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17642 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK4
17643#endif
17644 use pm_kind, only: RKC => RK4
17645 procedure(real(RKC)) :: getFunc
17646 type(ninf_type) , intent(in) :: lb
17647 type(pinf_type) , intent(in) :: ub
17648 real(RKC) , intent(in) :: abstol
17649 real(RKC) , intent(in) :: reltol
17650 type(GK31_type) , intent(in) :: qrule
17651 type(wcauchy_type) , intent(in) :: help
17652 real(RKC) , intent(out) :: integral, abserr
17653 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17654 integer(IK) , intent(out) , contiguous :: sindex(:)
17655 integer(IK) , intent(out) :: neval
17656 integer(IK) , intent(out) :: nint
17657 integer(IK) :: err
17658 end function
17659#endif
17660
17661#if RK3_ENABLED
17662 module function QAWC_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17664 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK3
17665#endif
17666 use pm_kind, only: RKC => RK3
17667 procedure(real(RKC)) :: getFunc
17668 type(ninf_type) , intent(in) :: lb
17669 type(pinf_type) , intent(in) :: ub
17670 real(RKC) , intent(in) :: abstol
17671 real(RKC) , intent(in) :: reltol
17672 type(GK31_type) , intent(in) :: qrule
17673 type(wcauchy_type) , intent(in) :: help
17674 real(RKC) , intent(out) :: integral, abserr
17675 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17676 integer(IK) , intent(out) , contiguous :: sindex(:)
17677 integer(IK) , intent(out) :: neval
17678 integer(IK) , intent(out) :: nint
17679 integer(IK) :: err
17680 end function
17681#endif
17682
17683#if RK2_ENABLED
17684 module function QAWC_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17685#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17686 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK2
17687#endif
17688 use pm_kind, only: RKC => RK2
17689 procedure(real(RKC)) :: getFunc
17690 type(ninf_type) , intent(in) :: lb
17691 type(pinf_type) , intent(in) :: ub
17692 real(RKC) , intent(in) :: abstol
17693 real(RKC) , intent(in) :: reltol
17694 type(GK31_type) , intent(in) :: qrule
17695 type(wcauchy_type) , intent(in) :: help
17696 real(RKC) , intent(out) :: integral, abserr
17697 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17698 integer(IK) , intent(out) , contiguous :: sindex(:)
17699 integer(IK) , intent(out) :: neval
17700 integer(IK) , intent(out) :: nint
17701 integer(IK) :: err
17702 end function
17703#endif
17704
17705#if RK1_ENABLED
17706 module function QAWC_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17708 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK1
17709#endif
17710 use pm_kind, only: RKC => RK1
17711 procedure(real(RKC)) :: getFunc
17712 type(ninf_type) , intent(in) :: lb
17713 type(pinf_type) , intent(in) :: ub
17714 real(RKC) , intent(in) :: abstol
17715 real(RKC) , intent(in) :: reltol
17716 type(GK31_type) , intent(in) :: qrule
17717 type(wcauchy_type) , intent(in) :: help
17718 real(RKC) , intent(out) :: integral, abserr
17719 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17720 integer(IK) , intent(out) , contiguous :: sindex(:)
17721 integer(IK) , intent(out) :: neval
17722 integer(IK) , intent(out) :: nint
17723 integer(IK) :: err
17724 end function
17725#endif
17726
17727 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17728
17729#if RK5_ENABLED
17730 module function QAWC_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17732 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK5
17733#endif
17734 use pm_kind, only: RKC => RK5
17735 procedure(real(RKC)) :: getFunc
17736 type(ninf_type) , intent(in) :: lb
17737 type(pinf_type) , intent(in) :: ub
17738 real(RKC) , intent(in) :: abstol
17739 real(RKC) , intent(in) :: reltol
17740 type(GK41_type) , intent(in) :: qrule
17741 type(wcauchy_type) , intent(in) :: help
17742 real(RKC) , intent(out) :: integral, abserr
17743 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17744 integer(IK) , intent(out) , contiguous :: sindex(:)
17745 integer(IK) , intent(out) :: neval
17746 integer(IK) , intent(out) :: nint
17747 integer(IK) :: err
17748 end function
17749#endif
17750
17751#if RK4_ENABLED
17752 module function QAWC_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17754 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK4
17755#endif
17756 use pm_kind, only: RKC => RK4
17757 procedure(real(RKC)) :: getFunc
17758 type(ninf_type) , intent(in) :: lb
17759 type(pinf_type) , intent(in) :: ub
17760 real(RKC) , intent(in) :: abstol
17761 real(RKC) , intent(in) :: reltol
17762 type(GK41_type) , intent(in) :: qrule
17763 type(wcauchy_type) , intent(in) :: help
17764 real(RKC) , intent(out) :: integral, abserr
17765 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17766 integer(IK) , intent(out) , contiguous :: sindex(:)
17767 integer(IK) , intent(out) :: neval
17768 integer(IK) , intent(out) :: nint
17769 integer(IK) :: err
17770 end function
17771#endif
17772
17773#if RK3_ENABLED
17774 module function QAWC_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17776 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK3
17777#endif
17778 use pm_kind, only: RKC => RK3
17779 procedure(real(RKC)) :: getFunc
17780 type(ninf_type) , intent(in) :: lb
17781 type(pinf_type) , intent(in) :: ub
17782 real(RKC) , intent(in) :: abstol
17783 real(RKC) , intent(in) :: reltol
17784 type(GK41_type) , intent(in) :: qrule
17785 type(wcauchy_type) , intent(in) :: help
17786 real(RKC) , intent(out) :: integral, abserr
17787 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17788 integer(IK) , intent(out) , contiguous :: sindex(:)
17789 integer(IK) , intent(out) :: neval
17790 integer(IK) , intent(out) :: nint
17791 integer(IK) :: err
17792 end function
17793#endif
17794
17795#if RK2_ENABLED
17796 module function QAWC_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17797#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17798 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK2
17799#endif
17800 use pm_kind, only: RKC => RK2
17801 procedure(real(RKC)) :: getFunc
17802 type(ninf_type) , intent(in) :: lb
17803 type(pinf_type) , intent(in) :: ub
17804 real(RKC) , intent(in) :: abstol
17805 real(RKC) , intent(in) :: reltol
17806 type(GK41_type) , intent(in) :: qrule
17807 type(wcauchy_type) , intent(in) :: help
17808 real(RKC) , intent(out) :: integral, abserr
17809 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17810 integer(IK) , intent(out) , contiguous :: sindex(:)
17811 integer(IK) , intent(out) :: neval
17812 integer(IK) , intent(out) :: nint
17813 integer(IK) :: err
17814 end function
17815#endif
17816
17817#if RK1_ENABLED
17818 module function QAWC_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17820 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK1
17821#endif
17822 use pm_kind, only: RKC => RK1
17823 procedure(real(RKC)) :: getFunc
17824 type(ninf_type) , intent(in) :: lb
17825 type(pinf_type) , intent(in) :: ub
17826 real(RKC) , intent(in) :: abstol
17827 real(RKC) , intent(in) :: reltol
17828 type(GK41_type) , intent(in) :: qrule
17829 type(wcauchy_type) , intent(in) :: help
17830 real(RKC) , intent(out) :: integral, abserr
17831 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17832 integer(IK) , intent(out) , contiguous :: sindex(:)
17833 integer(IK) , intent(out) :: neval
17834 integer(IK) , intent(out) :: nint
17835 integer(IK) :: err
17836 end function
17837#endif
17838
17839 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17840
17841#if RK5_ENABLED
17842 module function QAWC_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17844 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK5
17845#endif
17846 use pm_kind, only: RKC => RK5
17847 procedure(real(RKC)) :: getFunc
17848 type(ninf_type) , intent(in) :: lb
17849 type(pinf_type) , intent(in) :: ub
17850 real(RKC) , intent(in) :: abstol
17851 real(RKC) , intent(in) :: reltol
17852 type(GK51_type) , intent(in) :: qrule
17853 type(wcauchy_type) , intent(in) :: help
17854 real(RKC) , intent(out) :: integral, abserr
17855 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17856 integer(IK) , intent(out) , contiguous :: sindex(:)
17857 integer(IK) , intent(out) :: neval
17858 integer(IK) , intent(out) :: nint
17859 integer(IK) :: err
17860 end function
17861#endif
17862
17863#if RK4_ENABLED
17864 module function QAWC_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17865#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17866 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK4
17867#endif
17868 use pm_kind, only: RKC => RK4
17869 procedure(real(RKC)) :: getFunc
17870 type(ninf_type) , intent(in) :: lb
17871 type(pinf_type) , intent(in) :: ub
17872 real(RKC) , intent(in) :: abstol
17873 real(RKC) , intent(in) :: reltol
17874 type(GK51_type) , intent(in) :: qrule
17875 type(wcauchy_type) , intent(in) :: help
17876 real(RKC) , intent(out) :: integral, abserr
17877 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17878 integer(IK) , intent(out) , contiguous :: sindex(:)
17879 integer(IK) , intent(out) :: neval
17880 integer(IK) , intent(out) :: nint
17881 integer(IK) :: err
17882 end function
17883#endif
17884
17885#if RK3_ENABLED
17886 module function QAWC_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17887#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17888 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK3
17889#endif
17890 use pm_kind, only: RKC => RK3
17891 procedure(real(RKC)) :: getFunc
17892 type(ninf_type) , intent(in) :: lb
17893 type(pinf_type) , intent(in) :: ub
17894 real(RKC) , intent(in) :: abstol
17895 real(RKC) , intent(in) :: reltol
17896 type(GK51_type) , intent(in) :: qrule
17897 type(wcauchy_type) , intent(in) :: help
17898 real(RKC) , intent(out) :: integral, abserr
17899 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17900 integer(IK) , intent(out) , contiguous :: sindex(:)
17901 integer(IK) , intent(out) :: neval
17902 integer(IK) , intent(out) :: nint
17903 integer(IK) :: err
17904 end function
17905#endif
17906
17907#if RK2_ENABLED
17908 module function QAWC_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17909#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17910 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK2
17911#endif
17912 use pm_kind, only: RKC => RK2
17913 procedure(real(RKC)) :: getFunc
17914 type(ninf_type) , intent(in) :: lb
17915 type(pinf_type) , intent(in) :: ub
17916 real(RKC) , intent(in) :: abstol
17917 real(RKC) , intent(in) :: reltol
17918 type(GK51_type) , intent(in) :: qrule
17919 type(wcauchy_type) , intent(in) :: help
17920 real(RKC) , intent(out) :: integral, abserr
17921 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17922 integer(IK) , intent(out) , contiguous :: sindex(:)
17923 integer(IK) , intent(out) :: neval
17924 integer(IK) , intent(out) :: nint
17925 integer(IK) :: err
17926 end function
17927#endif
17928
17929#if RK1_ENABLED
17930 module function QAWC_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17931#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17932 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK1
17933#endif
17934 use pm_kind, only: RKC => RK1
17935 procedure(real(RKC)) :: getFunc
17936 type(ninf_type) , intent(in) :: lb
17937 type(pinf_type) , intent(in) :: ub
17938 real(RKC) , intent(in) :: abstol
17939 real(RKC) , intent(in) :: reltol
17940 type(GK51_type) , intent(in) :: qrule
17941 type(wcauchy_type) , intent(in) :: help
17942 real(RKC) , intent(out) :: integral, abserr
17943 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17944 integer(IK) , intent(out) , contiguous :: sindex(:)
17945 integer(IK) , intent(out) :: neval
17946 integer(IK) , intent(out) :: nint
17947 integer(IK) :: err
17948 end function
17949#endif
17950
17951 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17952
17953#if RK5_ENABLED
17954 module function QAWC_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17956 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK5
17957#endif
17958 use pm_kind, only: RKC => RK5
17959 procedure(real(RKC)) :: getFunc
17960 type(ninf_type) , intent(in) :: lb
17961 type(pinf_type) , intent(in) :: ub
17962 real(RKC) , intent(in) :: abstol
17963 real(RKC) , intent(in) :: reltol
17964 type(GK61_type) , intent(in) :: qrule
17965 type(wcauchy_type) , intent(in) :: help
17966 real(RKC) , intent(out) :: integral, abserr
17967 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17968 integer(IK) , intent(out) , contiguous :: sindex(:)
17969 integer(IK) , intent(out) :: neval
17970 integer(IK) , intent(out) :: nint
17971 integer(IK) :: err
17972 end function
17973#endif
17974
17975#if RK4_ENABLED
17976 module function QAWC_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17978 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK4
17979#endif
17980 use pm_kind, only: RKC => RK4
17981 procedure(real(RKC)) :: getFunc
17982 type(ninf_type) , intent(in) :: lb
17983 type(pinf_type) , intent(in) :: ub
17984 real(RKC) , intent(in) :: abstol
17985 real(RKC) , intent(in) :: reltol
17986 type(GK61_type) , intent(in) :: qrule
17987 type(wcauchy_type) , intent(in) :: help
17988 real(RKC) , intent(out) :: integral, abserr
17989 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17990 integer(IK) , intent(out) , contiguous :: sindex(:)
17991 integer(IK) , intent(out) :: neval
17992 integer(IK) , intent(out) :: nint
17993 integer(IK) :: err
17994 end function
17995#endif
17996
17997#if RK3_ENABLED
17998 module function QAWC_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18000 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK3
18001#endif
18002 use pm_kind, only: RKC => RK3
18003 procedure(real(RKC)) :: getFunc
18004 type(ninf_type) , intent(in) :: lb
18005 type(pinf_type) , intent(in) :: ub
18006 real(RKC) , intent(in) :: abstol
18007 real(RKC) , intent(in) :: reltol
18008 type(GK61_type) , intent(in) :: qrule
18009 type(wcauchy_type) , intent(in) :: help
18010 real(RKC) , intent(out) :: integral, abserr
18011 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18012 integer(IK) , intent(out) , contiguous :: sindex(:)
18013 integer(IK) , intent(out) :: neval
18014 integer(IK) , intent(out) :: nint
18015 integer(IK) :: err
18016 end function
18017#endif
18018
18019#if RK2_ENABLED
18020 module function QAWC_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18022 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK2
18023#endif
18024 use pm_kind, only: RKC => RK2
18025 procedure(real(RKC)) :: getFunc
18026 type(ninf_type) , intent(in) :: lb
18027 type(pinf_type) , intent(in) :: ub
18028 real(RKC) , intent(in) :: abstol
18029 real(RKC) , intent(in) :: reltol
18030 type(GK61_type) , intent(in) :: qrule
18031 type(wcauchy_type) , intent(in) :: help
18032 real(RKC) , intent(out) :: integral, abserr
18033 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18034 integer(IK) , intent(out) , contiguous :: sindex(:)
18035 integer(IK) , intent(out) :: neval
18036 integer(IK) , intent(out) :: nint
18037 integer(IK) :: err
18038 end function
18039#endif
18040
18041#if RK1_ENABLED
18042 module function QAWC_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18044 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK1
18045#endif
18046 use pm_kind, only: RKC => RK1
18047 procedure(real(RKC)) :: getFunc
18048 type(ninf_type) , intent(in) :: lb
18049 type(pinf_type) , intent(in) :: ub
18050 real(RKC) , intent(in) :: abstol
18051 real(RKC) , intent(in) :: reltol
18052 type(GK61_type) , intent(in) :: qrule
18053 type(wcauchy_type) , intent(in) :: help
18054 real(RKC) , intent(out) :: integral, abserr
18055 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18056 integer(IK) , intent(out) , contiguous :: sindex(:)
18057 integer(IK) , intent(out) :: neval
18058 integer(IK) , intent(out) :: nint
18059 integer(IK) :: err
18060 end function
18061#endif
18062
18063 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18064
18065#if RK5_ENABLED
18066 module function QAWC_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18068 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK5
18069#endif
18070 use pm_kind, only: RKC => RK5
18071 procedure(real(RKC)) :: getFunc
18072 type(ninf_type) , intent(in) :: lb
18073 type(pinf_type) , intent(in) :: ub
18074 real(RKC) , intent(in) :: abstol
18075 real(RKC) , intent(in) :: reltol
18076 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18077 type(wcauchy_type) , intent(in) :: help
18078 real(RKC) , intent(out) :: integral, abserr
18079 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18080 integer(IK) , intent(out) , contiguous :: sindex(:)
18081 integer(IK) , intent(out) :: neval
18082 integer(IK) , intent(out) :: nint
18083 integer(IK) :: err
18084 end function
18085#endif
18086
18087#if RK4_ENABLED
18088 module function QAWC_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18090 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK4
18091#endif
18092 use pm_kind, only: RKC => RK4
18093 procedure(real(RKC)) :: getFunc
18094 type(ninf_type) , intent(in) :: lb
18095 type(pinf_type) , intent(in) :: ub
18096 real(RKC) , intent(in) :: abstol
18097 real(RKC) , intent(in) :: reltol
18098 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18099 type(wcauchy_type) , intent(in) :: help
18100 real(RKC) , intent(out) :: integral, abserr
18101 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18102 integer(IK) , intent(out) , contiguous :: sindex(:)
18103 integer(IK) , intent(out) :: neval
18104 integer(IK) , intent(out) :: nint
18105 integer(IK) :: err
18106 end function
18107#endif
18108
18109#if RK3_ENABLED
18110 module function QAWC_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18112 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK3
18113#endif
18114 use pm_kind, only: RKC => RK3
18115 procedure(real(RKC)) :: getFunc
18116 type(ninf_type) , intent(in) :: lb
18117 type(pinf_type) , intent(in) :: ub
18118 real(RKC) , intent(in) :: abstol
18119 real(RKC) , intent(in) :: reltol
18120 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18121 type(wcauchy_type) , intent(in) :: help
18122 real(RKC) , intent(out) :: integral, abserr
18123 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18124 integer(IK) , intent(out) , contiguous :: sindex(:)
18125 integer(IK) , intent(out) :: neval
18126 integer(IK) , intent(out) :: nint
18127 integer(IK) :: err
18128 end function
18129#endif
18130
18131#if RK2_ENABLED
18132 module function QAWC_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18134 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK2
18135#endif
18136 use pm_kind, only: RKC => RK2
18137 procedure(real(RKC)) :: getFunc
18138 type(ninf_type) , intent(in) :: lb
18139 type(pinf_type) , intent(in) :: ub
18140 real(RKC) , intent(in) :: abstol
18141 real(RKC) , intent(in) :: reltol
18142 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18143 type(wcauchy_type) , intent(in) :: help
18144 real(RKC) , intent(out) :: integral, abserr
18145 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18146 integer(IK) , intent(out) , contiguous :: sindex(:)
18147 integer(IK) , intent(out) :: neval
18148 integer(IK) , intent(out) :: nint
18149 integer(IK) :: err
18150 end function
18151#endif
18152
18153#if RK1_ENABLED
18154 module function QAWC_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18156 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK1
18157#endif
18158 use pm_kind, only: RKC => RK1
18159 procedure(real(RKC)) :: getFunc
18160 type(ninf_type) , intent(in) :: lb
18161 type(pinf_type) , intent(in) :: ub
18162 real(RKC) , intent(in) :: abstol
18163 real(RKC) , intent(in) :: reltol
18164 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18165 type(wcauchy_type) , intent(in) :: help
18166 real(RKC) , intent(out) :: integral, abserr
18167 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18168 integer(IK) , intent(out) , contiguous :: sindex(:)
18169 integer(IK) , intent(out) :: neval
18170 integer(IK) , intent(out) :: nint
18171 integer(IK) :: err
18172 end function
18173#endif
18174
18175 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18176
18177 end interface
18178
18179!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18180
18181end module pm_quadPack
Compute the 1D integral of the input scalar (potentially singular) integrand getFunc on a finite or s...
Compute the 1D integral of the input scalar integrand getFunc on the finite or infinite interval [a,...
Compute the 1D integral of the input scalar (potentially singular) integrand getFunc on a finite or s...
Compute and return the series expansion of the input function values via the Chebyshev polynomials of...
Sort the input local error estimates list (resulting from the interval subdivision process of the Ada...
Return the Kronrod nodes and weights of the extension to the -point Gauss-Legendre quadrature,...
Return the limit of a given sequence of approximations via the Epsilon method of Wynn (1961).
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
integer, parameter RK5
Definition: pm_kind.F90:478
integer, parameter RK4
Definition: pm_kind.F90:489
integer, parameter RK2
Definition: pm_kind.F90:511
integer, parameter RK3
Definition: pm_kind.F90:500
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
integer, parameter RKB
The scalar integer constant of intrinsic default kind, representing the Best-precision real kind supp...
Definition: pm_kind.F90:1182
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind t...
Definition: pm_kind.F90:858
integer, parameter RK1
Definition: pm_kind.F90:522
This module contains relevant mathematical constants.
character(*, SK), parameter MODULE_NAME
type(ninf_type), parameter ninf
The scalar constant object of type ninf_type that indicates the use of the negative infinity as an i...
type(pinf_type), parameter pinf
The scalar constant object of type pinf_type that indicates the use of the positive infinity as an i...
This module contains classes and procedures for non-adaptive and adaptive global numerical quadrature...
real(RKB), dimension(15), parameter weightG30
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(13), parameter nodeG25
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
integer(IK), parameter MAXLEN_EPSTAB
The scalar integer of default kind IK, containing the maximum size of the Table of Epsilon algorithm.
real(RKB), dimension(21), parameter weightK41
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(16), parameter weightK31
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(21), parameter nodeK41
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(8), parameter nodeG15
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(15), parameter nodeG30
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(8), parameter nodeK15
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(11), parameter weightK21
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(31), parameter nodeK61
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(16), parameter nodeK31
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(4), parameter nodeG7
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
type(GK31_type), parameter GK31
The scalar constant object of type GK31_type that indicates the use of 15-point Gauss-Legendre quadra...
real(RKB), dimension(5), parameter weightG10
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(13), parameter weightG25
A vector of type real of the highest-precision kind available by the processor, containing the weight...
type(GK51_type), parameter GK51
The scalar constant object of type GK51_type that indicates the use of 25-point Gauss-Legendre quadra...
real(RKB), dimension(11), parameter nodeK21
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(8), parameter weightK15
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(4), parameter weightG7
A vector of type real of the highest-precision kind available by the processor, containing the weight...
type(weps_type), parameter weps
The scalar constant object of type weps_type that indicates the use of Epsilon extrapolation method o...
real(RKB), dimension(26), parameter weightK51
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(10), parameter weightG20
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(26), parameter nodeK51
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
type(GK61_type), parameter GK61
The scalar constant object of type GK61_type that indicates the use of 30-point Gauss-Legendre quadra...
type(GK21_type), parameter GK21
The scalar constant object of type GK21_type that indicates the use of 10-point Gauss-Legendre quadra...
real(RKB), dimension(5), parameter nodeG10
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(31), parameter weightK61
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(8), parameter weightG15
A vector of type real of the highest-precision kind available by the processor, containing the weight...
type(GK15_type), parameter GK15
The scalar constant object of type GK15_type that indicates the use of 7-point Gauss-Legendre quadrat...
real(RKB), dimension(10), parameter nodeG20
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
type(GK41_type), parameter GK41
The scalar constant object of type GK41_type that indicates the use of 20-point Gauss-Legendre quadra...
This is the indicator type for generating instances of objects that indicate the use of the negative ...
This is the indicator type for generating instances of objects that indicate the use of the positive ...
This is the indicator type for generating instances of objects that indicate the use of 7-point Gauss...
This is the indicator type for generating instances of objects that indicate the use of 10-point Gaus...
This is the indicator type for generating instances of objects that indicate the use of 15-point Gaus...
This is the indicator type for generating instances of objects that indicate the use of 20-point Gaus...
This is the indicator type for generating instances of objects that indicate the use of 25-point Gaus...
This is the indicator type for generating instances of objects that indicate the use of 30-point Gaus...
This is the derived type for constructing objects that signify the computation of the Cauchy Principa...
This is the derived type for constructing objects that signify the computation of the integral an arb...
This is the indicator type for generating instances of objects that indicate the use of Epsilon extra...
This is the derived type for constructing objects that signify the computation of the integral an arb...